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