/[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 123 by dpavlin, Mon Jul 14 21:45:59 2008 UTC revision 135 by dpavlin, Tue Jul 15 17:14:10 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::CRUD;  package Frey::Web::CRUD;
2  use Moose;  use Moose;
3  extends 'Frey::Web::Item';  extends 'Frey';
4    with 'Frey::Web::Item';
5    with 'Frey::Web::Button';
6    
7  =head1 NAME  =head1 NAME
8    
# Line 32  sub edit_delete_buttons { Line 34  sub edit_delete_buttons {
34  sub delete_button {  sub delete_button {
35          my $self = shift;          my $self = shift;
36          $self->add_button('Delete' => sub {          $self->add_button('Delete' => sub {
37                    my $id = $self->fey->id;
38                  $self->fey->delete;                  $self->fey->delete;
39                  $self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|);                  $self->next( qq|<div class="notice">Deleted id $id</div>|);
40                  $self->render_as( 'none' );                  $self->render_as( 'none' );
41  #               Strix::Schema->ClearObjectCaches();     # XXX important!  #               Strix::Schema->ClearObjectCaches();     # XXX important!
42          });          });
# Line 52  before 'main' => sub { Line 55  before 'main' => sub {
55                          warn "Inserted ",$u->id;                          warn "Inserted ",$u->id;
56                          # XXX store object for later                          # XXX store object for later
57                          $self->fey( $u );                          $self->fey( $u );
                         # put ID in widget, so that it know it's not new  
                         $self->id( $u->id );  
58                          $self->render_as( 'view' );                          $self->render_as( 'view' );
59                          $self->edit_delete_buttons;                          $self->edit_delete_buttons;
60                          $self->remove_button( 'Add' );                          $self->remove_button( 'Add' );
Legend:
Removed from v.123  
changed lines
  Added in v.135
  ViewVC Help
Powered by ViewVC 1.1.26