/[Frey]/trunk/lib/Frey/ORM/CRUD.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/ORM/CRUD.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 129 by dpavlin, Mon Jul 14 23:44:18 2008 UTC revision 143 by dpavlin, Wed Jul 16 14:17:46 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::CRUD;  package Frey::Web::CRUD;
2  use Moose;  use Moose;
3  extends 'Frey';  extends 'Frey::Web::Item';
 with 'Frey::Web::Item';  
4  with 'Frey::Web::Button';  with 'Frey::Web::Button';
5    
6  =head1 NAME  =head1 NAME
# Line 34  sub edit_delete_buttons { Line 33  sub edit_delete_buttons {
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          });          });
# Line 54  before 'main' => sub { Line 54  before 'main' => sub {
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' );
Legend:
Removed from v.129  
changed lines
  Added in v.143
  ViewVC Help
Powered by ViewVC 1.1.26