--- trunk/conf/isi/cu-au-count.pl	2009/05/30 20:30:26	1212
+++ trunk/conf/isi/cu-au-count.pl	2009/05/30 20:39:50	1213
@@ -1,14 +1,15 @@
 
-foreach my $cr ( rec_array 'CR' ) {
-	if ( ! $cr->{author} ) {
-		warn "# cr ",dump( $cr );
-		next;
-	}
-	foreach my $au ( rec_array 'AU' ) {
+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,
 		);
-		row( 'authors', au => $au );
 	}
 }
+