--- Webpacus2/lib/Webpacus/View.pm 2007/10/31 19:08:25 946 +++ Webpacus2/lib/Webpacus/View.pm 2007/11/02 12:23:40 962 @@ -26,8 +26,26 @@ while ( my $row = $results->next ) { warn "view :: row = ",dump( $row ); li { - div { join(' ',@{$row->{TitleProper}}) } - tt { $row->{database} . '/' . $row->{input} . '/' . $row->{id} } + 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' ) } } } } @@ -35,5 +53,4 @@ }; - 1;