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

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

revision 452 by dpavlin, Wed Nov 19 04:13:02 2008 UTC revision 453 by dpavlin, Wed Nov 19 04:28:27 2008 UTC
# Line 32  sub data { Line 32  sub data {
32          my $items;          my $items;
33          my $names = $self->sponge->{NAME};          my $names = $self->sponge->{NAME};
34    
35            my $id = 0;
36            my $have_id = grep { m{^id$} } @$names;
37            my $have_label = grep { m{^label$} } @$names;
38    
39          foreach my $row ( @{ $self->sponge->{rows} } ) {          foreach my $row ( @{ $self->sponge->{rows} } ) {
40                  my $item;                  my $item;
41                  map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );                  map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );
42                    $item->{id}    = $id unless $have_id;
43                    $item->{label} = $id unless $have_label;
44                    $id++;
45                  push @{ $items->{items} }, $item;                  push @{ $items->{items} }, $item;
46          }          }
47    
Legend:
Removed from v.452  
changed lines
  Added in v.453
  ViewVC Help
Powered by ViewVC 1.1.26