--- trunk/lib/Frey/View/Exhibit.pm 2008/11/19 14:39:10 454 +++ trunk/lib/Frey/View/Exhibit.pm 2008/11/19 15:28:23 455 @@ -24,19 +24,19 @@ # required => 1, ); -sub data { +sub as_data { my ($self) = @_; - confess "need sponge" unless $self->sponge; + confess "need sponge" unless $self->as_sponge; my $items; - my $names = $self->sponge->{NAME}; + my $names = $self->as_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} } ) { + foreach my $row ( @{ $self->as_sponge->{rows} } ) { my $item; map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } ); $item->{id} = $id unless $have_id; @@ -51,8 +51,8 @@ sub depends { my ($self) = @_; $self->add_head(qq{ - + }); $self->add_head(qq|