/[Frey]/trunk/lib/Frey/Web/Item.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/Web/Item.pm

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

revision 96 by dpavlin, Fri Jul 11 12:47:50 2008 UTC revision 97 by dpavlin, Fri Jul 11 13:11:36 2008 UTC
# Line 13  use Moose; Line 13  use Moose;
13  extends 'Frey::Web::Button';  extends 'Frey::Web::Button';
14  #with 'BonusTypes';  #with 'BonusTypes';
15    
16  has _render_as => ( is => 'rw', isa => 'Str', required => 1, default => 'view' );  use Moose::Util::TypeConstraints;
17    
18    enum 'Render_as' => qw( view edit none );
19    has _render_as => ( is => 'rw', isa => 'Render_as', required => 1, default => 'view' );
20    
21    has _fey => (
22            is => 'rw',
23            label => 'Fey object',
24            isa => 'Strix::User',
25    );
26    
27    enum 'Layouts' => qw( div table columns );
28    has _layout => (
29            is => 'rw',
30            isa => 'Layouts',
31            default => 'div',
32            required => 1,
33    );
34    
35  sub render_iterator {  sub render_iterator {
36          confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1;          confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1;
# Line 51  sub edit_delete_buttons { Line 68  sub edit_delete_buttons {
68  sub delete_button {  sub delete_button {
69          my $self = shift;          my $self = shift;
70          $self->add_button('Delete' => sub {          $self->add_button('Delete' => sub {
                 print STDERR "delete ID @{[$self->id]}!\n";  
71                  $self->_fey->delete;                  $self->_fey->delete;
72                  $self->next("Deleted id @{[$self->id]}!");                  $self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|);
73                  $self->_render_as( 'deleted' );                  $self->_render_as( 'none' );
74                  Strix::Schema->ClearObjectCaches();     # XXX important!  #               Strix::Schema->ClearObjectCaches();     # XXX important!
75          });          });
76  }  }
77    
# Line 187  foreach ( $m->get_attribute_list ) { Line 203  foreach ( $m->get_attribute_list ) {
203    
204  }  }
205    
 has _fey => (  
         is => 'rw',  
         label => 'Fey object',  
         isa => 'Strix::User',  
 );  
   
 use Moose::Util::TypeConstraints;  
   
 enum 'Layouts' => qw( div table columns );  
   
 has _layout => (  
         is => 'rw',  
         isa => 'Layouts',  
         default => 'div',  
 );  
   
206  1;  1;

Legend:
Removed from v.96  
changed lines
  Added in v.97

  ViewVC Help
Powered by ViewVC 1.1.26