--- 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|
Deleted id @{[$self->id]}!
|); + $self->next( qq|
Deleted id $id
|); $self->render_as( 'none' ); # Strix::Schema->ClearObjectCaches(); # XXX important! }); @@ -52,8 +55,6 @@ warn "Inserted ",$u->id; # XXX store object for later $self->fey( $u ); - # put ID in widget, so that it know it's not new - $self->id( $u->id ); $self->render_as( 'view' ); $self->edit_delete_buttons; $self->remove_button( 'Add' );