--- trunk/lib/Strix/View/User.pm 2008/07/11 12:47:50 96 +++ trunk/lib/Strix/View/User.pm 2008/07/11 13:11:36 97 @@ -13,7 +13,24 @@ extends 'Frey::Web::Button'; #with 'BonusTypes'; -has _render_as => ( is => 'rw', isa => 'Str', required => 1, default => 'view' ); +use Moose::Util::TypeConstraints; + +enum 'Render_as' => qw( view edit none ); +has _render_as => ( is => 'rw', isa => 'Render_as', required => 1, default => 'view' ); + +has _fey => ( + is => 'rw', + label => 'Fey object', + isa => 'Strix::User', +); + +enum 'Layouts' => qw( div table columns ); +has _layout => ( + is => 'rw', + isa => 'Layouts', + default => 'div', + required => 1, +); sub render_iterator { confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1; @@ -51,11 +68,10 @@ sub delete_button { my $self = shift; $self->add_button('Delete' => sub { - print STDERR "delete ID @{[$self->id]}!\n"; $self->_fey->delete; - $self->next("Deleted id @{[$self->id]}!"); - $self->_render_as( 'deleted' ); - Strix::Schema->ClearObjectCaches(); # XXX important! + $self->next( qq|
Deleted id @{[$self->id]}!
|); + $self->_render_as( 'none' ); +# Strix::Schema->ClearObjectCaches(); # XXX important! }); } @@ -187,20 +203,4 @@ } -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', -); - 1;