Parent Directory | Revision Log | Patch
revision 1208 by dpavlin, Fri May 29 21:41:37 2009 UTC | revision 1210 by dpavlin, Sat May 30 15:26:25 2009 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | ||
2 | foreach my $cr ( rec_array 'CR' ) { | foreach my $cr ( rec_array 'CR' ) { |
3 | if ( ! $cr->{author} ) { | |
4 | warn "# cr ",dump( $cr ); | |
5 | next; | |
6 | } | |
7 | foreach my $au ( rec_array 'AU' ) { | foreach my $au ( rec_array 'AU' ) { |
8 | row( | row( 'cited', |
9 | cited => $cr->{author}, | cited_au => $cr->{author}, |
10 | au => $au, | from_au => $au, |
11 | ); | ); |
12 | row( 'authors', au => $au ); | |
13 | } | } |
14 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |