--- trunk/lib/Frey/Web/CRUD.pm 2008/07/14 21:45:59 123 +++ trunk/lib/Frey/Web/CRUD.pm 2008/07/15 17:14:10 135 @@ -1,6 +1,8 @@ package Frey::Web::CRUD; use Moose; -extends 'Frey::Web::Item'; +extends 'Frey'; +with 'Frey::Web::Item'; +with 'Frey::Web::Button'; =head1 NAME @@ -32,8 +34,9 @@ sub delete_button { my $self = shift; $self->add_button('Delete' => sub { + my $id = $self->fey->id; $self->fey->delete; - $self->next( qq|