conf/dipl/cu-au-count.pl


foreach my $au ( rec_array 'AU' ) {
        row( 'authors', au => $au );
        foreach my $cr ( rec_array 'CR' ) {
                if ( ! $cr->{author} ) {
#                       warn "# cr ",dump( $cr );
                        next;
                }
                row( 'cited',
                        cited_au => $cr->{author},
                        from_au => $au,
                );
        }
}

1	dpavlin	1205
2	dpavlin	1213	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	dpavlin	1210	row( 'cited',
10			cited_au => $cr->{author},
11			from_au => $au,
12	dpavlin	1205	);
13			}
14			}
15	dpavlin	1213