1 |
package Frey::Web::CRUD; |
package Frey::Web::CRUD; |
2 |
use Moose; |
use Moose; |
3 |
extends 'Frey::Web::Item'; |
extends 'Frey::Web::Item'; |
4 |
|
with 'Frey::Web::Button'; |
5 |
|
|
6 |
=head1 NAME |
=head1 NAME |
7 |
|
|
33 |
sub delete_button { |
sub delete_button { |
34 |
my $self = shift; |
my $self = shift; |
35 |
$self->add_button('Delete' => sub { |
$self->add_button('Delete' => sub { |
36 |
|
my $id = $self->fey->id; |
37 |
$self->fey->delete; |
$self->fey->delete; |
38 |
$self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|); |
$self->next( qq|<div class="notice">Deleted id $id</div>|); |
39 |
$self->render_as( 'none' ); |
$self->render_as( 'none' ); |
40 |
# Strix::Schema->ClearObjectCaches(); # XXX important! |
# Strix::Schema->ClearObjectCaches(); # XXX important! |
41 |
}); |
}); |
54 |
warn "Inserted ",$u->id; |
warn "Inserted ",$u->id; |
55 |
# XXX store object for later |
# XXX store object for later |
56 |
$self->fey( $u ); |
$self->fey( $u ); |
|
# put ID in widget, so that it know it's not new |
|
|
$self->id( $u->id ); |
|
57 |
$self->render_as( 'view' ); |
$self->render_as( 'view' ); |
58 |
$self->edit_delete_buttons; |
$self->edit_delete_buttons; |
59 |
$self->remove_button( 'Add' ); |
$self->remove_button( 'Add' ); |