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

   1 sub csv { to('csv',@_) }
   2
   3 if ( rec('200','a') ) {
   4
   5 ## 022
   6
   7 if ( ! rec('225','a') ) {
   8         csv('A',
   9                 rec('11')
  10         );
  11 }
  12
  13 csv('B',
  14         join_with('',
  15                 uc( config() ),
  16                 ' P',
  17                 rec('000')
  18         )
  19 );
  20
  21 csv('C',
  22         rec('101')
  23 );
  24
  25
  26 csv('D',
  27         rec('675','a')
  28 );
  29
  30 csv('E',
  31         join_with(', ',
  32                 rec('700', 'a'),
  33                 rec('700', 'b')
  34         )
  35 );
  36
  37 csv('F',
  38         rec('710','a')
  39 );
  40
  41 csv('G',
  42         rec('710','c')
  43 );
  44
  45 csv('H',
  46         lookup(
  47                 sub { rec('530','a') },
  48                 'nsk','bbaza',
  49                 sub { rec('011','a') },
  50                 sub { rec('11') },
  51         )
  52 );
  53
  54 csv('I',
  55         rec('200','a')
  56 );
  57
  58 csv('J',
  59         rec('200','d')
  60 );
  61
  62 csv('K',
  63         rec('200','e')
  64 );
  65
  66
  67 csv('L',
  68         rec('532')
  69 );
  70
  71
  72 csv('M',
  73         join_with(' / ',
  74                 rec('205','a'),
  75                 rec('205','f')
  76         )
  77 );
  78
  79 csv('N',
  80         rec('210','a')
  81 );
  82
  83 csv('O',
  84         rec('210','c')
  85 );
  86
  87 csv('P',
  88         rec('210','d')
  89 );
  90
  91 csv('R',
  92         rec('215','d')
  93 );
  94
  95 csv('S',
  96         rec('326')
  97 );
  98
  99 csv('T',
 100         rec('207','a')
 101 );
 102
 103 csv('U',
 104         rec('300')
 105 );
 106
 107 csv('V',
 108         rec('610')
 109 );
 110
 111 csv('W',
 112         join_with(', ',
 113                 rec('702','a'),
 114                 rec('702','b'),
 115         ),
 116 );
 117
 118
 119 csv('Z',
 120         join_with(' ',
 121                 rec('990')
 122         )
 123 );
 124
 125 csv('X',
 126         rec('991','a')
 127 );
 128
 129 csv('Y',
 130         join_with(' ; ',
 131                 rec('992')
 132         )
 133 );
 134 }