--- trunk/lib/Strix/View/User.pm 2008/07/09 20:46:40 74 +++ trunk/lib/Frey/Web/Item.pm 2008/07/14 21:45:59 123 @@ -1,97 +1,196 @@ -package Strix::View::User; +package Frey::Web::Item; use Data::Dump qw/dump/; +use Carp qw/carp/; -use metaclass 'Moose::Meta::Class' => ( - attribute_metaclass => 'Continuity::Meta::Attribute::FormField' +use Moose; +extends 'Frey::Web::Button'; +#with 'BonusTypes'; + +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', + isa => 'Object', # FIXME Strix::User? +# required => 1, # XXX if we require it we can't have Add form ); -use Moose; +has fey_class => ( + is => 'rw', + isa => 'Str', + required => 1, +); -extends 'Continuity::Widget'; -#with 'BonusTypes'; +enum 'Layouts' => qw( div table columns ); +has layout => ( + is => 'rw', + isa => 'Layouts', + default => 'div', + required => 1, +); -sub main { - my ( $self ) = @_; +has 'display_columns' => ( + is => 'rw', + isa => 'ArrayRef[Str]', + lazy_build => 1, +); - if ( ! $self->_fey ) { - $self->add_button( 'Add' => sub { - warn "## Add button callback ",dump( @_ ); - my $f = shift; -# my $out = $self->render_edit; -# my $f = $self->next($out); - warn "## my uuid ",$self->uuid; - $self->set_from_hash($f, sub { - warn "## inside set_from_hash ",dump( @_ ); - my $hash = shift || die "no hash?"; - delete( $hash->{id} ); # FIXME clear primary key -# $hash->{id} = undef; - my $u = Strix::User->insert( %$hash ); - warn "Inserted ",$u->id; - $self->_fey( $u ); - }); - }); - } else { - - $self->add_button( 'Edit' => sub { - 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?"; - $self->_fey->update( %$hash ); - }); - }); - - $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 id { + my $self = shift; + carp "LEGACY: called ->id"; + $self->fey->id if $self->fey; +} +sub set_from_hash { + my ($self, $f) = @_; + my $attrmap = $self->fey->meta->get_attribute_map if $self->fey; + my $hash; + foreach my $name ( @{ $self->display_columns } ) { + my $field_name = $self->field_name($name); + if(defined $f->{$field_name}) { + $hash->{ $name } = $f->{$field_name}; + + if ( defined $attrmap->{$name} ) { + my $writer = $attrmap->{$name}->get_write_method; + $self->fey->$writer($f->{$field_name}); + } else { + warn "can't store value back into fey->$name"; + } + } } + warn "# set_from_hash ", $self->uuid," produced hash = ",dump( $hash ) if $hash; + return $hash; +} + +sub render_iterator { + confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1; + my ($self, $iterator) = @_; + my $out; +# my %attrmap = %{ $self->meta->get_attribute_map }; +# while( my ($name, $attr) = each %attrmap ) { +# my $reader = $attr->get_read_method; +# my $val = $self->$reader || ''; + foreach my $name ( @{ $self->display_columns } ) { + my $field_name = $self->field_name($name); + my $val; + $val = $self->fey->$name if $self->fey && $self->fey->can($name); + $out .= $iterator->( $name, $field_name, ucfirst($name), $val ) || ''; # || '' to shut warnings + } + return $out; +} + +sub main { + my ( $self ) = @_; + + warn "# ",$self->uuid, " [", $self->id ,"] fey = ",dump( $self->fey ); while(1) { - my $code = '$self->render_' . $self->render_as . ';'; - warn "CODE: $code"; - my $out = eval "$code"; + 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); } }; -use Data::Dump qw/dump/; - -use Strix::User; -my $m = Strix::User->meta; +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 =~ /^_/; + $val ||= ''; + return qq| + + $label + + + + + | if $self->layout eq 'table'; + return qq| + + + + | if $self->layout eq 'columns'; + return qq| +
+ +
+ +
+
+ |; + }); -foreach ( $m->get_attribute_list ) { - my $attr = $m->get_attribute( $_ ); - warn ">> $_\n"; + return qq|$out| . $self->render_buttons . qq|| if $self->layout eq 'columns'; - # FIXME primary key would have to be read-only! + $self->render_wrapper_class( $out, 'editform' ); +} - has $_ => ( - is => $attr->_is_metadata, - label => ucfirst($_), - required => $attr->is_required, - ); +sub render_view { + my $self = shift; + warn "# render_view ",$self->id," ",$self->uuid," ", $self->layout,"\n"; + my $out = $self->render_iterator( sub { + #warn "# view render_iterator ",dump( @_ ); + my ( $name, $field_name, $label, $val ) = @_; + return if $name =~ /^_/; + $val ||= ''; + return qq|$label$val| if $self->layout eq 'table'; + return qq|$val| if $self->layout eq 'columns'; + return qq| +
+
$label
+
$val
+
+ + |; + }); + return qq|$out| . $self->render_buttons . qq|| if $self->layout eq 'columns'; + $self->render_wrapper_class( $out, 'view' ); +} +sub render_wrapper_class { + my ( $self, $out, $class ) = @_; + if ( length($out) == 0 ) { + carp "no output, skipping"; + return ''; + } + $out =~ s/^\t+//mg; # XXX compress output + return $out . qq|| . $self->render_buttons . qq|| if $self->layout eq 'table'; + return qq|
| . $out . $self->render_buttons . qq|
|; } -has _foo => ( - is => 'rw', - label => 'Foo', -); +sub _build_display_columns { + my $self = shift; -has _fey => ( - is => 'rw', - label => 'Fey object', - isa => 'Strix::User', -); + my $m = $self->fey_class->meta; + + my @cols; + + foreach ( $m->get_attribute_list ) { + my $attr = $m->get_attribute( $_ ); + warn "_build_display_columns $_\n" if $self->debug; + # FIXME primary key would have to be read-only! + push @cols, $_; + } + + warn "## display_columns ",dump( @cols ) if $self->debug; + + return \@cols; +} 1;