--- trunk/lib/Strix/View/User.pm 2008/07/09 16:38:48 71 +++ trunk/lib/Strix/View/User.pm 2008/07/11 09:24:23 92 @@ -1,6 +1,7 @@ package Strix::View::User; use Data::Dump qw/dump/; +use Carp qw/carp/; use metaclass 'Moose::Meta::Class' => ( attribute_metaclass => 'Continuity::Meta::Attribute::FormField' @@ -11,32 +12,145 @@ extends 'Continuity::Widget'; #with 'BonusTypes'; -before main => sub { - my ($self) = @_; -# $self->add_button('Show ID' => sub { -# print STDERR "ID = @{[$self->id]}!\n"; -# $self->next("id @{[$self->id]}!"); -# }); - $self->add_button('Edit' => sub { - my $out = $self->renderer->{edit}->($self); +sub edit_delete_buttons { + my $self = shift; + + return unless $self->_fey; + + $self->add_button( 'Edit' => sub { + $self->remove_button( 'Delete' ); + $self->rename_button( 'Edit' => 'Save' ); + my $out = $self->render_edit; my $f = $self->next($out); - $self->set_from_hash($f, sub { - warn "## inside set_from_hash ",dump( @_ ); - my $hash = shift || die "no hash?"; - warn "## hash = ",dump( $hash ); - $self->_fey->update( %$hash ); - }); + my $hash = $self->set_from_hash($f); + #warn "# Edit/Save hash = ",dump( $hash ); + $self->_fey->update( %$hash ) if $hash; + $self->rename_button( 'Save' => 'Edit' ); + $self->delete_button; }); + $self->delete_button; +} + +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! + }); +} + +sub main { + my ( $self ) = @_; + + if ( ! $self->_fey ) { + $self->add_button( 'Add' => sub { + my $f = shift; + my $hash = $self->set_from_hash($f); + delete( $hash->{id} ); # FIXME clear primary key + my $u = Strix::User->insert( %$hash ); + warn "Inserted ",$u->id; + # XXX store object for later + $self->_fey( $u ); + # put ID in widget, so that it know it's not new + $self->id( $u->id ); + $self->render_as( 'view' ); + $self->edit_delete_buttons; + $self->remove_button( 'Add' ); + }); + } + + $self->edit_delete_buttons; + + warn "# ",$self->uuid, " [", $self->id ,"] _fey = ",dump( $self->_fey ); + + while(1) { + my $out; + if ( $self->render_as eq 'edit' ) { + $out .= $self->render_edit; + } elsif ( $self->render_as eq 'view' ) { + $out .= $self->render_view; + } else { + warn "no renderer ",dump( $self->render_as ), " skipping..."; + } + + warn $@ if $@; + warn ">>> ",length($out),"\n"; + my $f = $self->next($out); + $self->set_from_hash($f); + $self->exec_buttons($f); + } }; +sub render_edit { + my $self = shift; + warn "# render_edit ",$self->id," ",$self->uuid, " ", $self->_layout, "\n"; + my $out = $self->render_iterator( sub { + #warn "# edit render_iterator ",dump( @_ ); + my ( $name, $field_name, $label, $val ) = @_; + return if $name =~ /^_/; + return qq| +