git.rot13.org Git - webpac2/blob - conf/normalize/webpacus-unimarc.pl

   1
   2 search_display('ISBN',
   3         isbn_13(
   4                 rec('10')
   5         )
   6 );
   7
   8 search_display('ISSN',
   9         rec('11')
  10 );
  11
  12
  13 search_display('Language',
  14         rec('101','a')
  15 );
  16
  17 search_display('TitleProper',
  18         join_with(' / ',
  19                 join_with('',
  20                         rec('200','a'),
  21                         rec('200','c'),
  22                 ),
  23                 rec('200','f'),
  24         )
  25 );
  26
  27
  28
  29 # regex('s/\s*[=:\/;]\s*//g',
  30
  31 sorted('TitleProper',
  32         rec('200','a'),
  33 );
  34
  35
  36 #display('PripadajuciOznaka',
  37 #       lookup(
  38 #               sub { [ rec('200','a') . rec('200','c'),  rec(451,'a') ] },
  39 #               'hidra','bib',
  40 #               sub { rec('900') },
  41 #               sub { rec('451','1') }
  42 #       )
  43 #);
  44 #
  45 #display('Fond',
  46 #       lookup(
  47 #               sub { rec('200','a') },
  48 #               'hidra','bib',
  49 #               sub { rec('900') },
  50 #               sub { rec('946','1') }
  51 #       )
  52 #);
  53
  54
  55 search('PlacePublication',
  56         rec('210','a')
  57 );
  58
  59 search('NamePublisher',
  60         rec('210','c'),
  61 );
  62
  63 search_display('DatePublication',
  64         rec('210','d')
  65 );
  66
  67 display('Impresum',
  68         rec('210'),
  69 );
  70
  71 search_display('Series',
  72         rec('225','a')
  73 );
  74
  75 search_display('GeneralNote',
  76         rec('300')
  77 );
  78