conf/isi/cu-au-count.pl


foreach my $cr ( rec_array 'CR' ) {
        if ( ! $cr->{author} ) {
                warn "# cr ",dump( $cr );
                next;
        }
        foreach my $au ( rec_array 'AU' ) {
                row( 'cited',
                        cited_au => $cr->{author},
                        from_au => $au,
                );
                row( 'authors', au => $au );
        }
}
1	dpavlin	1205
2			foreach my $cr ( rec_array 'CR' ) {
3	dpavlin	1210	if ( ! $cr->{author} ) {
4			warn "# cr ",dump( $cr );
5			next;
6			}
7	dpavlin	1205	foreach my $au ( rec_array 'AU' ) {
8	dpavlin	1210	row( 'cited',
9			cited_au => $cr->{author},
10			from_au => $au,
11	dpavlin	1205	);
12	dpavlin	1210	row( 'authors', au => $au );
13	dpavlin	1205	}
14			}