--- trunk/lib/Frey/Web/CRUD.pm 2008/07/14 23:44:18 129 +++ trunk/lib/Frey/Web/CRUD.pm 2008/07/16 14:17:46 143 @@ -1,7 +1,6 @@ package Frey::Web::CRUD; use Moose; -extends 'Frey'; -with 'Frey::Web::Item'; +extends 'Frey::Web::Item'; with 'Frey::Web::Button'; =head1 NAME @@ -34,8 +33,9 @@ sub delete_button { my $self = shift; $self->add_button('Delete' => sub { + my $id = $self->fey->id; $self->fey->delete; - $self->next( qq|