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

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

revision 69 by dpavlin, Wed Jul 9 15:45:59 2008 UTC revision 70 by dpavlin, Wed Jul 9 16:36:21 2008 UTC
# Line 16  Don't quite know what this will be yet. Line 16  Don't quite know what this will be yet.
16    
17  =cut  =cut
18    
19    use Data::Dump qw/dump/;
20    
21  use Data::UUID;  use Data::UUID;
22  use Moose;  use Moose;
23  with 'Continuity::Coro::Moose';  with 'Continuity::Coro::Moose';
# Line 43  sub render_edit { Line 45  sub render_edit {
45    my $out = '<div class="editform">';    my $out = '<div class="editform">';
46    my %attrmap = %{ $self->meta->get_attribute_map };    my %attrmap = %{ $self->meta->get_attribute_map };
47    while( my ($name, $attr) = each %attrmap ) {    while( my ($name, $attr) = each %attrmap ) {
48            next if $name =~ /^_/;
49      my $reader = $attr->get_read_method;      my $reader = $attr->get_read_method;
50      my $val = $self->$reader || '';      my $val = $self->$reader || '';
51      my $field_name = $self->field_name($name);      my $field_name = $self->field_name($name);
# Line 65  sub render_view { Line 68  sub render_view {
68    my $out = '<div class="view">';    my $out = '<div class="view">';
69    my %attrmap = %{ $self->meta->get_attribute_map };    my %attrmap = %{ $self->meta->get_attribute_map };
70    while( my ($name, $attr) = each %attrmap ) {    while( my ($name, $attr) = each %attrmap ) {
71            #next if $name =~ /^_/;
72      my $reader = $attr->get_read_method;      my $reader = $attr->get_read_method;
73      my $val = $self->$reader || '';      my $val = $self->$reader || '';
74      my $field_name = $self->field_name($name);      my $field_name = $self->field_name($name);
# Line 83  sub render_view { Line 87  sub render_view {
87  }  }
88    
89  sub set_from_hash {  sub set_from_hash {
90    my ($self, $f) = @_;          my ($self, $f, $callback) = @_;
91    my %attrmap = %{ $self->meta->get_attribute_map };          my %attrmap = %{ $self->meta->get_attribute_map };
92    while( my ($name, $attr) = each %attrmap ) {          my $hash;
93      my $field_name = $self->field_name($name);          while( my ($name, $attr) = each %attrmap ) {
94      if(defined $f->{$field_name}) {                  my $field_name = $self->field_name($name);
95        my $writer = $attr->get_write_method;                  if(defined $f->{$field_name}) {
96        $self->$writer($f->{$field_name});                          my $writer = $attr->get_write_method;
97      }                          $self->$writer($f->{$field_name});
98    }                          $hash->{ $name } = $f->{$field_name};
99                    }
100            }
101            warn "# hash = ",dump( $hash );
102            $callback->( $hash ) if defined $hash && defined $callback;
103  }  }
104    
105  sub add_button {  sub add_button {
Legend:
Removed from v.69  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.26