--- Webpacus2/lib/Webpacus/View.pm 2007/11/02 12:23:38 961 +++ Webpacus2/lib/Webpacus/View.pm 2007/11/02 12:23:40 962 @@ -26,8 +26,25 @@ while ( my $row = $results->next ) { warn "view :: row = ",dump( $row ); li { - div { $row->( 'TitleProper' ) } + div { + $row->( 'TitleProper' ) . '. ' . $row->( 'Series' ) + } div { $row->( 'DatePublication' ) } + my $po = $row->( 'PripadajuciOznaka' ); + warn('$po=',dump($po)); + my @po = $row->( 'PripadajuciOznaka' ); + warn('@po=',dump(@po)); + ul { attr { class => 'linked'}; + foreach my $i ( @po ) { + warn("i=",dump($i)); + foreach my $j ( @$i ) { + warn("j=",dump($j)); + li { $j } + } + } + } + div { $row->( 'Fond' ) } + div { $row->( 'ISBN' ) } tt { $row->( 'database' ) . '/' . $row->( 'input' ) . '/' . $row->( 'id' ) } } } @@ -36,5 +53,4 @@ }; - 1;