git.rot13.org Git - webpac2/blob - conf/normalize/marc-nsk.pl

   1
   2 if ( rec('200','a') ) {
   3
   4 marc('035','6',
   5 join_with('',
   6                 config(),
   7                 'L',
   8                 rec('000')
   9         )
  10 );
  11
  12 marc('020','a',
  13         rec('10')
  14 );
  15
  16
  17 marc('022','a',
  18         rec('011','a')
  19 );
  20
  21
  22 marc_indicators('245', 0, 0);
  23
  24 marc('245','a',
  25         first(
  26                 rec('200','a')
  27         )
  28 );
  29
  30 marc('500','a',
  31         rec('300','a')
  32 );
  33
  34