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

   1 marc_leader('05','n');
   2 marc_leader('06','a');
   3 marc_leader('07','s');
   4 marc_leader('18','i');
   5
   6 marc('022','a',
   7         lookup(
   8                 sub { rec('022','a') },
   9                 'wiley','full',
  10                 sub {
  11                         regex('s/\s*(\.|:)\s*$//g',
  12                                 lc(
  13                                         rec('245','a') . ' ' . rec('245','b')
  14                                 )
  15                         );
  16                 },
  17                 sub {
  18                         regex('s/\s*(\.|:)\s*$//g',
  19                                 lc( rec('A') )
  20                         );
  21                 }
  22         ) ||
  23         lookup(
  24                 sub { rec('022','a') },
  25                 'wiley','full',
  26                 sub {
  27                         regex('s/\s*(\.|:)\s*$//g',
  28                                 lc( rec('245','a') )
  29                         );
  30                 },
  31                 sub {
  32                         regex('s/\s*(\.|:)\s*$//g',
  33                                 lc( rec('A') )
  34                         );
  35                 }
  36         )
  37 );
  38
  39 marc('022','y',
  40         lookup(
  41                 sub { rec('022','y') },
  42                 'wiley','full',
  43                 sub {
  44                         regex('s/\s*(\.|:)\s*$//g',
  45                                 lc(
  46                                         rec('245','a') . ' ' . rec('245','b')
  47                                 )
  48                         );
  49                 },
  50                 sub {
  51                         regex('s/\s*(\.|:)\s*$//g',
  52                                 lc( rec('A') )
  53                         );
  54                 }
  55         ) ||
  56         lookup(
  57                 sub { rec('022','y') },
  58                 'wiley','full',
  59                 sub {
  60                         regex('s/\s*(\.|:)\s*$//g',
  61                                 lc( rec('245','a') )
  62                         );
  63                 },
  64                 sub {
  65                         regex('s/\s*(\.|:)\s*$//g',
  66                                 lc( rec('A') )
  67                         );
  68                 }
  69         )
  70 );
  71
  72 marc_indicators('245', 1, 0);
  73
  74 marc('245','a',
  75         rec('A')
  76 );
  77
  78 marc('245','h',
  79         '[ Elektronièka graða ]'
  80 );
  81
  82 marc_indicators('246', 1, 0);
  83
  84 marc('246','a',
  85         lookup(
  86                 sub { rec('246','a') },
  87                 'wiley','full',
  88                 sub {
  89                         regex('s/\s*(\.|:)\s*$//g',
  90                                 lc(
  91                                         rec('245','a') . ' ' . rec('245','b')
  92                                 )
  93                         );
  94                 },
  95                 sub {
  96                         regex('s/\s*(\.|:)\s*$//g',
  97                                 lc( rec('A') )
  98                         );
  99                 }
 100         ) ||
 101         lookup(
 102                 sub { rec('246','a') },
 103                 'wiley','full',
 104                 sub {
 105                         regex('s/\s*(\.|:)\s*$//g',
 106                                 lc( rec('245','a') )
 107                         );
 108                 },
 109                 sub {
 110                         regex('s/\s*(\.|:)\s*$//g',
 111                                 lc( rec('A') )
 112                         );
 113                 }
 114         )
 115 );
 116
 117 marc('500','a',
 118         lookup(
 119                 sub { rec('500','a') },
 120                 'wiley','full',
 121                 sub {
 122                         regex('s/\s*(\.|:)\s*$//g',
 123                                 lc(
 124                                         rec('245','a') . ' ' . rec('245','b')
 125                                 )
 126                         );
 127                 },
 128                 sub {
 129                         regex('s/\s*(\.|:)\s*$//g',
 130                                 lc( rec('A') )
 131                         );
 132                 }
 133         ) ||
 134         lookup(
 135                 sub { rec('500','a') },
 136                 'wiley','full',
 137                 sub {
 138                         regex('s/\s*(\.|:)\s*$//g',
 139                                 lc( rec('245','a') )
 140                         );
 141                 },
 142                 sub {
 143                         regex('s/\s*(\.|:)\s*$//g',
 144                                 lc( rec('A') )
 145                         );
 146                 }
 147         )
 148 );
 149
 150 marc_indicators('650', ' ', 7);
 151
 152 marc('650','a',
 153         lookup(
 154                 sub { rec('650','a') },
 155                 'wiley','full',
 156                 sub {
 157                         regex('s/\s*(\.|:)\s*$//g',
 158                                 lc(
 159                                         rec('245','a') . ' ' . rec('245','b')
 160                                 )
 161                         );
 162                 },
 163                 sub {
 164                         regex('s/\s*(\.|:)\s*$//g',
 165                                 lc( rec('A') )
 166                         );
 167                 }
 168         ) ||
 169         lookup(
 170                 sub { rec('650','a') },
 171                 'wiley','full',
 172                 sub {
 173                         regex('s/\s*(\.|:)\s*$//g',
 174                                 lc( rec('245','a') )
 175                         );
 176                 },
 177                 sub {
 178                         regex('s/\s*(\.|:)\s*$//g',
 179                                 lc( rec('A') )
 180                         );
 181                 }
 182         )
 183 );
 184
 185 marc('650','v',
 186         lookup(
 187                 sub { rec('650','v') },
 188                 'wiley','full',
 189                 sub {
 190                         regex('s/\s*(\.|:)\s*$//g',
 191                                 lc(
 192                                         rec('245','a') . ' ' . rec('245','b')
 193                                 )
 194                         );
 195                 },
 196                 sub {
 197                         regex('s/\s*(\.|:)\s*$//g',
 198                                 lc( rec('A') )
 199                         );
 200                 }
 201         ) ||
 202         lookup(
 203                 sub { rec('650','v') },
 204                 'wiley','full',
 205                 sub {
 206                         regex('s/\s*(\.|:)\s*$//g',
 207                                 lc( rec('245','a') )
 208                         );
 209                 },
 210                 sub {
 211                         regex('s/\s*(\.|:)\s*$//g',
 212                                 lc( rec('A') )
 213                         );
 214                 }
 215         )
 216 );
 217
 218
 219 marc('650','z',
 220         lookup(
 221                 sub { rec('650','z') },
 222                 'wiley','full',
 223                 sub {
 224                         regex('s/\s*(\.|:)\s*$//g',
 225                                 lc(
 226                                         rec('245','a') . ' ' . rec('245','b')
 227                                 )
 228                         );
 229                 },
 230                 sub {
 231                         regex('s/\s*(\.|:)\s*$//g',
 232                                 lc( rec('A') )
 233                         );
 234                 }
 235         ) ||
 236         lookup(
 237                 sub { rec('650','z') },
 238                 'wiley','full',
 239                 sub {
 240                         regex('s/\s*(\.|:)\s*$//g',
 241                                 lc( rec('245','a') )
 242                         );
 243                 },
 244                 sub {
 245                         regex('s/\s*(\.|:)\s*$//g',
 246                                 lc( rec('A') )
 247                         );
 248                 }
 249         )
 250 );
 251
 252
 253
 254 marc('856','u',
 255         lookup(
 256                 sub { rec('856','u') },
 257                 'wiley','full',
 258                 sub {
 259                                 lc(
 260                                         rec('245','a') . rec('245','b')
 261                                 )
 262                 },
 263
 264                 sub {
 265                                 lc( rec('A') )
 266                 }
 267         )
 268         ||
 269         lookup(
 270                 sub { rec('856','u') },
 271                 'wiley','full',
 272                 sub {
 273                         regex('s/\s*(\.|:)\s*$//g',
 274                                 lc( rec('245','a') )
 275                         );
 276                 },
 277                 sub {
 278                         regex('s/\s*(\.|:)\s*$//g',
 279                                 lc( rec('A') )
 280                         );
 281                 }
 282         )
 283 );