--- trunk/lib/Frey/View/Exhibit.pm 2008/11/19 04:13:02 449 +++ trunk/lib/Frey/View/Exhibit.pm 2008/11/19 04:28:27 453 @@ -32,9 +32,16 @@ my $items; my $names = $self->sponge->{NAME}; + my $id = 0; + my $have_id = grep { m{^id$} } @$names; + my $have_label = grep { m{^label$} } @$names; + foreach my $row ( @{ $self->sponge->{rows} } ) { my $item; map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } ); + $item->{id} = $id unless $have_id; + $item->{label} = $id unless $have_label; + $id++; push @{ $items->{items} }, $item; }