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