/[webpac2]/trunk/conf/normalize/mapping.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/conf/normalize/mapping.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 595 by dpavlin, Mon Jul 10 10:16:11 2006 UTC revision 622 by dpavlin, Fri Aug 25 19:22:33 2006 UTC
# Line 25  if ( rec('230') ) { Line 25  if ( rec('230') ) {
25    
26  # polje 035 je u NSK ponovljivo. zašto ???  # polje 035 je u NSK ponovljivo. zašto ???
27    
28  # privemeno koristimo 0356 umjesto 0359  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku
29    
30  marc('035','6',  marc('035','6',
31          join_with(' ',  join_with('',
32  #               config('input normalize path'),  #               config('input normalize path'),
33                  config('name'),  #               config('name'),
34                  config('input name'),  #               config('input name'),
35                  config(),                  config(),
36                  id(),  #               id(),
37                  rec('994','a'),  #               rec('994','a'),
38                  rec('000')                  rec('000')
39          )          )
40  );  );
# Line 45  marc('035','6', Line 45  marc('035','6',
45  # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '  # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '
46    
47  marc('020','a',  marc('020','a',
48          rec('010')          rec('10')
49  );  );
50    
51  # u polje 040a možda još dodati prefiks HR  # u polje 040a možda još dodati prefiks HR
# Line 74  marc_indicators('245', 0, 0); Line 74  marc_indicators('245', 0, 0);
74  #_debug(3);  #_debug(3);
75    
76  marc_compose('245',  marc_compose('245',
77          'a', rec('200','a'),          'a', suffix(
78                    rec('200','b') ? '. '   :
79                    rec('200','k') ? ' ; '  :
80                    rec('200','d') ? ' = '  :
81                    rec('200','e') ? ' : '  :
82                    rec('200','f') ? ' / '  :
83                                     '.',
84                            rec('200','a')
85            ),
86          'h', rec('200','b'),          'h', rec('200','b'),
87            'b', rec('200','k'),
88            'b', rec('200','d'),
89          'b',          'b',
90          join_with(' : ',                  join_with(' : ',
91                  rec('200','d'),                          rec('200','e'),
92                  rec('200','e')                  ),
         ),  
93          'c',          'c',
94          join_with(' ; ',                  join_with(' ; ',
95                  rec('200','f'),                          rec('200','f'),
96                  rec('200','g')                  ),
97          ),  # FIXME append to last subfield
98            '+', prefix('. ', rec('200','c') ),
99  );  );
100    
101    
102  #_debug(0);  #_debug(0);
103    
104    
105  # marc('245','a',  # marc('245','a',
106  #       rec('200','a')  #       rec('200','a')
107  # );  # );
# Line 112  marc('250','a', Line 124  marc('250','a',
124          rec('205','a')          rec('205','a')
125  );  );
126    
127  marc_compose('260',  # FIXME ponovljiva potpolja u originalnom redosljedu
128          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),  #
129          'b', first(rec('210','c')),  marc_original_order('260', '210');
130          'a', split_rec_on('210','a', qr/\s*;\s*/, 2),  
131          'c', first(rec('210','d')),  # marc('260','a',
132  );  #       rec('210','a'),
133    # );
134    #
135    # marc('260','b',
136    #       rec('210','c'),
137    # );
138    
139    # marc('260','c',
140    #       rec('210','d'),
141    # );
142    
143    # marc_compose('260',
144    #       'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
145    #       'b', first(rec('210','c')),
146    #       'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
147    #       'c', first(rec('210','d')),
148    # );
149    
150  marc('300','a',  marc('300','a',
151          rec('215','a')          rec('215','a')
# Line 138  marc('300','e', Line 166  marc('300','e',
166    
167  marc_indicators('490', 1, ' ');  marc_indicators('490', 1, ' ');
168  marc('490','a',  marc('490','a',
169          join_with(' = ',          join_with(' : ',
170                  rec('225','a'),                  rec('225','a'),
171                  join_with(" :  ",                  join_with(" =  ",
172                          rec('225','d'),                          rec('225','d'),
173                          join_with(" / ",                          join_with(" / ",
174                                  rec('225','e'),                                  rec('225','e'),
# Line 151  marc('490','a', Line 179  marc('490','a',
179  );  );
180    
181  marc('490','v',  marc('490','v',
182    #       join2_with(225, 'v', ' , ', 225,'w');
183          join_with(', ',          join_with(', ',
184                  rec('225','v'),                  rec('225','v'),
185                  rec('225','w')                  rec('225','w')
# Line 232  marc('100','a', Line 261  marc('100','a',
261          )          )
262  );  );
263    
264    #_debug(2);
265    
266  marc_indicators('700', 1, ' ');  marc_indicators('700', 1, ' ');
267    
# Line 242  marc('700','4', Line 272  marc('700','4',
272  }  }
273    
274  marc('700','a',  marc('700','a',
275          join_with(', ',          rec('701', 'a'),
                 rec('701', 'a'),  
                 rec('701', 'b')  
         )  
276  );  );
277    
278  marc('700','a',  marc('700','a',
# Line 269  marc('700','a', Line 296  marc('700','a',
296          )          )
297  );  );
298    
299    
300  marc('700','a',  marc('700','a',
301          join_with(', ',          rec('702','a'),
                 rec('702','a'),  
                 rec('702','b')  
         )  
302  );  );
303    
304    
305    # ako je u originalu ponovljivo polje treba biti i konvertirano!!
306    
307    
308  marc('700','a',  marc('700','a',
309          join_with(', ',          join_with(', ',
310                  rec('702','c'),                  rec('702','c'),
# Line 297  marc('700','a', Line 326  marc('700','a',
326          )          )
327  );  );
328    
329    #_debug(0);
330    
331    
332  if ( rec('710','f') ) {  if ( rec('710','f') ) {
333    
# Line 333  marc('110','c', Line 364  marc('110','c',
364          rec('710','c')          rec('710','c')
365  );  );
366    
367  }  };
   
 # zapisi za duplanje  
   
 if ( rec('230') ) {  
   
 marc_duplicate();  
   
 marc_remove('245');  
 marc_remove('035','6');  
   
 marc('245','a',  
         rec('230','a')  
 );  
   
 if ( ! rec('230','a') ) {  
   
 marc('245','a',  
         rec('200','a')  
 );  
368    
 }  
369    
370  marc('245','b',  marc_indicators('740', 0, ' ');
371          rec('230','e')  marc('740','a',
372            rec('200','c')
373  );  );
374    
 marc('245','c',  
         rec('230','f')  
 );  
   
 marc('245','n',  
         rec('230','v')  
 );  
375    
376  }  # višerazinci
377    #
378    # if ( rec('230') ) {
379    #
380    #       marc_duplicate();
381    #       marc_remove('245');
382    #
383    #       marc('245','a',
384    #               rec('230','a')
385    #       );
386    #
387    #       if ( ! rec('230','a') ) {
388    #
389    #               marc('245','a',
390    #                       rec('200','a')
391    #               );
392    #       }
393    #
394    #       marc('245','b',
395    #               rec('230','e')
396    #       );
397    #
398    #       marc('245','c',
399    #               rec('230','f')
400    #       );
401    #
402    #       marc('245','n',
403    #               rec('230','v')
404    #       );
405    #
406    # }
407    #
408    # if ( rec('231') ) {
409    #
410    #       marc_duplicate();
411    #       marc_remove('245');
412    #
413    #       marc('245','a',
414    #               rec('231','a')
415    #       );
416    #
417    #       if ( ! rec('231','a') ) {
418    #
419    #               marc('245','a',
420    #                       rec('200','a')
421    #               );
422    #       }
423    #
424    #       marc('245','b',
425    #               rec('231','e')
426    #       );
427    #
428    #       marc('245','c',
429    #               rec('231','f')
430    #       );
431    #
432    #       marc('245','n',
433    #               rec('231','v')
434    #       );
435    #
436    # }
437    
438  }  }
Legend:
Removed from v.595  
changed lines
  Added in v.622
  ViewVC Help
Powered by ViewVC 1.1.26