Parent Directory | Revision Log
example for WebPAC::Output::DBI
1 | |
2 | foreach my $au ( rec_array 'AU' ) { |
3 | row( 'authors', au => $au ); |
4 | foreach my $cr ( rec_array 'CR' ) { |
5 | if ( ! $cr->{author} ) { |
6 | # warn "# cr ",dump( $cr ); |
7 | next; |
8 | } |
9 | row( 'cited', |
10 | cited_au => $cr->{author}, |
11 | from_au => $au, |
12 | ); |
13 | } |
14 | } |
15 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |