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

   1 search( 'title',        rec('A') );
   2 search( 'issn',
   3         join_with(' ; ',
   4                 rec('B'),
   5                 rec('C')
   6         )
   7 );
   8 search( 'coverage',
   9         join_with(' - ',
  10                 rec('D'),
  11                 rec('G')
  12         )
  13 );
  14 search( 'publisher',    rec('P') );
  15 search( 'url',          rec('J') );
  16 search( 'urlp',         rec('J') );
  17 search( 'subject',      rec('S') );
  18
  19 if ( rec('R') && config('input description') =~ m/JSTOR/ ) {
  20         search( 'collection',
  21                 join_with(' ',
  22                         'JSTOR', rec('R')
  23                 )
  24         );
  25 } elsif  ( rec('R') ) {
  26         search( 'collection', rec('R') );
  27 } else {
  28         search( 'collection',
  29                 config('input description')
  30         )
  31 }