--- Webpacus2/lib/Webpacus/View.pm 2007/11/02 12:23:40 962 +++ Webpacus2/lib/Webpacus/View.pm 2007/11/02 12:59:39 963 @@ -23,16 +23,16 @@ if ( my $results = $action->result->content( 'results' ) ) { ul { - while ( my $row = $results->next ) { - warn "view :: row = ",dump( $row ); + while ( my $ds = $results->next ) { + warn "view :: ds = ",dump( $ds ); li { div { - $row->( 'TitleProper' ) . '. ' . $row->( 'Series' ) + $ds->display( 'TitleProper' ) . '. ' . $ds->display( 'Series' ) } - div { $row->( 'DatePublication' ) } - my $po = $row->( 'PripadajuciOznaka' ); + div { $ds->display( 'DatePublication' ) } + my $po = $ds->display( 'PripadajuciOznaka' ); warn('$po=',dump($po)); - my @po = $row->( 'PripadajuciOznaka' ); + my @po = $ds->display( 'PripadajuciOznaka' ); warn('@po=',dump(@po)); ul { attr { class => 'linked'}; foreach my $i ( @po ) { @@ -43,9 +43,9 @@ } } } - div { $row->( 'Fond' ) } - div { $row->( 'ISBN' ) } - tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) } + div { $ds->display( 'Fond' ) } + div { $ds->display( 'ISBN' ) } + tt { $ds->display( 'database' ) . '/' . $ds->display( 'input' ) . '/' . $ds->display( 'id' ) } } } }