conf/isi/cu-au-count.pl


foreach my $cr ( rec_array 'CR' ) {
        foreach my $au ( rec_array 'AU' ) {
                row(
                        cited => $cr->{author},
                        au => $au,
                );
        }
}
1	dpavlin	1205
2			foreach my $cr ( rec_array 'CR' ) {
3			foreach my $au ( rec_array 'AU' ) {
4			row(
5			cited => $cr->{author},
6	dpavlin	1208	au => $au,
7	dpavlin	1205	);
8			}
9			}