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

   1 # warn dump(rec('AU'));
   2 # warn dump(rec_array('AU'));
   3
   4 #di => split( /;/, rec(
   5
   6 my $sig =
   7         lookup(
   8                 sub { 1 },
   9                 'casopisi','sig',
  10                 sub { rec('A') . rec('B') },
  11                 sub { config ('input collection') . rec('000') }
  12         );
  13
  14 row( 'isis',
  15         sig => $sig || 0,
  16         zbirka => config('input collection'),
  17         mfn => rec('000'),
  18         signatura => rec('990') || 0,
  19         zemlja => rec('102') || 0,
  20         naslov =>
  21                 join_with(' : ',
  22                         join_with(' = ',
  23                                 rec('200','a'),
  24                                 rec('200','d')
  25                         ),
  26                         rec('200','e')
  27                 ) || 0,
  28         odgovornost =>
  29                 join_with(' ; ',
  30                         rec('200','f'),
  31                 ) || 0,
  32         issn => rec('11') || 0,
  33         f210d => rec('210','d') || 0,
  34         f207a =>
  35                 join_with(' ; ',
  36                         rec('207','a')
  37                 ) || 0,
  38         f326 => rec('326') || 0,
  39         f215a => rec('215','a') || 0,
  40         f991b => rec('991','b') || 0
  41 );