git.rot13.org Git - webpac2/blob - conf/bibliografija/baza-csa.pl

   1 my $covpolicy;
   2 my $covstatus;
   3
   4 ( $covpolicy, $covstatus ) = split(/\s*-\s*/, rec('F'));
   5
   6 my @isn = regex('s/^.*(\d\d\d\w)(\d\d\d\w).*/$1-$2/', rec('B'));
   7
   8 row('rbaze',
   9         baza => config('input name'),
  10         isn => $isn[0],
  11         eissn => rec('C'),
  12         title => rec('A'),
  13         coverage_policy => $covpolicy,
  14         coverage_status => $covstatus,
  15         publisher => rec('D'),
  16         country => rec('E')
  17 );