git.rot13.org Git - webpac2/blob - conf/dipl/tables.pl

   1 # warn dump(rec('AU'));
   2 # warn dump(rec_array('AU'));
   3
   4 #di => split( /;/, rec(
   5
   6 row( 'citing',
   7         ut => rec('UT'),
   8         pt => rec('PT'),
   9         au => join_with(' ; ',
  10                 rec('AU')
  11         ),
  12         ti => rec('TI'),
  13         so => rec('SO'),
  14         la => rec('LA'),
  15         dt => rec('DT'),
  16         de => rec('DE'),
  17         id => rec('ID'),
  18         de => join_with(' ; ',
  19                 rec('DE'),
  20         ),
  21         id => join_with(' ; ',
  22                 rec('ID'),
  23         ),
  24         rp => uc ( rec('RP') ),
  25         nr => rec('NR'),
  26         tc => rec('TC'),
  27         pi => rec('PI'),
  28         py => rec('PY'),
  29         di => rec('DI'),
  30         sc => rec('SC')
  31 );
  32
  33 if ( rec('RP') ) {
  34         row( 'rpco',
  35                 ut => rec('UT'),
  36                 rp => rec('RP'),
  37                 rpco =>
  38                         regex('s/.*,(.*)/$1/',
  39                                 regex('s/\.$//',
  40                                         rec('RP')
  41                                 )
  42                         ),
  43         );
  44 }
  45
  46 my @af = rec_array ('AF');
  47 foreach my $au ( rec_array ('AU') ) {
  48         foreach my $cr ( rec_array('CR') ) {
  49                 row( 'cited',
  50                         ut => rec('UT'),
  51                         ca => config('input name'),
  52                         cr_auth => $cr->{author},
  53                         au => regex('s/,//',
  54                                 uc ( $au )
  55                         ),
  56                         cr_full => $cr->{full},
  57                         cr_year => $cr->{year},
  58                         cr_ref => $cr->{reference}
  59                 );
  60         }
  61         row( 'authors',
  62                 ut => rec('UT'),
  63                 ca => config('input name'),
  64                 au => regex('s/,//',
  65                         uc ( $au )
  66                 ),
  67                 af => shift @af,
  68         )
  69 }
  70
  71 row( 'utca',
  72         ut => rec('UT'),
  73         ca => config('input name')
  74 );
  75
  76