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

   1 my $upisani;
   2
   3 $upisani =
   4         lookup(
   5                 sub{ rec('D') },
   6                 'kohacas','upisani',
   7                 sub{ rec('D') },
   8                 sub{ rec('999','c') },
   9         );
  10
  11 #if ( $upisani ) {
  12
  13 row( 'kohacas',
  14         biblionumber => rec('999','c'),
  15         naslov =>
  16                 join_with(' ',
  17                         rec('245','a'),
  18                         rec('245','b'),
  19                         rec('245','c'),
  20                 ),
  21         issn =>
  22                 join_with(' ; ',
  23                         rec('020','a'),
  24                 ),
  25         sig852j =>
  26                 join_with(' ; ',
  27                         rec('852','j'),
  28                 ),
  29         sig942d => rec('942','d'),
  30         itemtype => rec('942','c'),
  31         ldr => rec('ldr'),
  32         f008 => rec('008'),
  33         items =>
  34                 join_with(' ; ',
  35                         rec('952','9')
  36                 )
  37 );
  38 #}