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

   1 search_display('ISBN',
   2         isbn_13(
   3                 rec('020','a')
   4         )
   5 );
   6
   7 warn "### isbn_13 = ",dump(
   8         isbn_13(
   9                 rec('020','a')
  10         )
  11 );
  12
  13 search_display('ISBN_incorrect',
  14         rec('010','z')
  15 );
  16
  17 search_display('ISSN',
  18         rec('022','a')
  19 );
  20
  21
  22 search_display('Language',
  23         rec('041','a')
  24 );
  25
  26 search_display('TitleProper',
  27         join_with('',
  28                 rec('245','a'),
  29                 join_with(' / ',
  30                         rec('245','b'),
  31                         rec('245','c')
  32                 )
  33         )
  34 );
  35
  36 # regex('s/\s*[=:\/;]\s*//g',
  37
  38 sorted('TitleProper',
  39         rec('245','a'),
  40 );
  41
  42 search_display('ReminderTitle',
  43         join_with(' : ',
  44                 prefix(' = ',
  45                         rec('245','d')
  46                 ),
  47                 rec('245','e')
  48         )
  49 );
  50
  51 display('Pripadajuci',
  52         lookup(
  53                 sub { rec('245','a') },
  54                 'webpacus','foobar',
  55                 sub { rec('774','w') },
  56                 sub { rec('035','6') }
  57         )
  58 );
  59
  60
  61 search('PlacePublication',
  62         rec('260','a')
  63 );
  64
  65 search('NamePublisher',
  66         rec('260','b'),
  67 );
  68
  69 search_display('DatePublication',
  70         rec('260','c')
  71 );
  72
  73 display('Impresum',
  74         rec('260'),
  75 );
  76
  77 search_display('Dimensions',
  78         rec('300','c')
  79 );
  80
  81 search_display('GeneralNote',
  82         rec('500')
  83 );
  84