/[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 602 by dpavlin, Sun Jul 23 17:33:27 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('',
# Line 45  join_with('', Line 45  join_with('',
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 85  marc_compose('245', Line 85  marc_compose('245',
85          ),          ),
86          'h', rec('200','b'),          'h', rec('200','b'),
87          'b', rec('200','k'),          'b', rec('200','k'),
88          'b', rec('200','d'),          'b', rec('200','d'),
89          'b', rec('200','e'),          'b',
90          'c', rec('200','f'),                  join_with(' : ',
91                            rec('200','e'),
92                    ),
93            'c',
94                    join_with(' ; ',
95                            rec('200','f'),
96                    ),
97  # FIXME append to last subfield  # FIXME append to last subfield
98  #       '+', prefix('. ', rec('200','c') ),          '+', prefix('. ', rec('200','c') ),
99  );  );
100    
101    
# Line 120  marc('250','a', Line 126  marc('250','a',
126    
127  # FIXME ponovljiva potpolja u originalnom redosljedu  # FIXME ponovljiva potpolja u originalnom redosljedu
128  #  #
129  # marc_original_order('260', '210');  marc_original_order('260', '210');
130    
131  marc('260','a',  # marc('260','a',
132          rec('210','a'),  #       rec('210','a'),
133  );  # );
134    #
135  marc('260','b',  # marc('260','b',
136          rec('210','c'),  #       rec('210','c'),
137  );  # );
138    
139  marc('260','c',  # marc('260','c',
140          rec('210','d'),  #       rec('210','d'),
141  );  # );
142    
143  # marc_compose('260',  # marc_compose('260',
144  #       'a', split_rec_on('210','a', qr/\s*;\s*/, 1),  #       'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
# Line 255  marc('100','a', Line 261  marc('100','a',
261          )          )
262  );  );
263    
264  _debug(2);  #_debug(2);
265    
266  marc_indicators('700', 1, ' ');  marc_indicators('700', 1, ' ');
267    
# Line 320  marc('700','a', Line 326  marc('700','a',
326          )          )
327  );  );
328    
329  _debug(0);  #_debug(0);
330    
331    
332  if ( rec('710','f') ) {  if ( rec('710','f') ) {
# Line 368  marc('740','a', Line 374  marc('740','a',
374    
375    
376  # višerazinci  # 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    
 if ( rec('230') ) {  
   
         marc_duplicate();  
         marc_remove('245');  
   
         marc('245','a',  
                 rec('230','a')  
         );  
   
         if ( ! rec('230','a') ) {  
   
                 marc('245','a',  
                         rec('200','a')  
                 );  
         }  
   
         marc('245','b',  
                 rec('230','e')  
         );  
   
         marc('245','c',  
                 rec('230','f')  
         );  
   
         marc('245','n',  
                 rec('230','v')  
         );  
   
 }  
   
 if ( rec('231') ) {  
   
         marc_duplicate();  
         marc_remove('245');  
   
         marc('245','a',  
                 rec('231','a')  
         );  
   
         if ( ! rec('231','a') ) {  
   
                 marc('245','a',  
                         rec('200','a')  
                 );  
         }  
   
         marc('245','b',  
                 rec('231','e')  
         );  
   
         marc('245','c',  
                 rec('231','f')  
         );  
   
         marc('245','n',  
                 rec('231','v')  
         );  
   
 }  
438  }  }
Legend:
Removed from v.602  
changed lines
  Added in v.622
  ViewVC Help
Powered by ViewVC 1.1.26