/[webpac2]/trunk/conf/isi/cu-au-count.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/conf/isi/cu-au-count.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1210 - (show annotations)
Sat May 30 15:26:25 2009 UTC (14 years, 10 months ago) by dpavlin
File MIME type: text/plain
File size: 245 byte(s)
 r1906@llin:  dpavlin | 2009-05-30 17:26:17 +0200
 added table name to row normalize command so we can create
 data in different tables directly from normalization file

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

  ViewVC Help
Powered by ViewVC 1.1.26