git.rot13.org Git - webpac2/blob - vhost/ecas/cambridge.pl

   1 my $issn_key =
   2         rec('F');
   3
   4 my $issn = get( $issn_key );
   5
   6 if ( $issn ) {
   7         # warn "nije novi";
   8 } else {
   9
  10 $issn = rec('F');
  11
  12 set( $issn_key => $issn );
  13
  14
  15 search( 'title',        rec('D') );
  16 search( 'abbtitle',     rec('E') );
  17 search( 'issn',
  18         join_with(' ; ',
  19                 $issn,
  20                 rec('G')
  21         )
  22 );
  23 search( 'publisher',    'Cambridge' );
  24 search( 'url',          'http://journals.cambridge.org/' . lc ( rec('A') ) );
  25 search( 'urlp',         'http://journals.cambridge.org/' . lc ( rec('A') ) );
  26 search( 'collection',
  27         config('input description')
  28 )
  29
  30 }