/[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 612 by dpavlin, Wed Aug 23 10:08:17 2006 UTC revision 629 by dpavlin, Tue Sep 5 21:02:39 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 84  marc_compose('245', Line 84  marc_compose('245',
84                          rec('200','a')                          rec('200','a')
85          ),          ),
86          'h', rec('200','b'),          'h', rec('200','b'),
87          'b', rec('200','k'),          'b',
88          'b', rec('200','d'),                  join_with(' ; ',
89          'b', rec('200','e'),                          rec('200','k'),
90          'c', rec('200','f'),                  ),
91            'b', rec('200','d'),
92            'b',
93                    join_with(' : ',
94                            rec('200','e'),
95                    ),
96            'c',
97                    join_with(' ; ',
98                            rec('200','f'),
99                    ),
100  # FIXME append to last subfield  # FIXME append to last subfield
101          '+', prefix('. ', rec('200','c') ),          '+', prefix('. ', rec('200','c') ),
102  );  );
# Line 362  marc('110','c', Line 371  marc('110','c',
371    
372    
373  marc_indicators('740', 0, ' ');  marc_indicators('740', 0, ' ');
374    
375    if ( ! rec('464') ) {
376  marc('740','a',  marc('740','a',
377          rec('200','c')          rec('200','c')
378  );  );
379    
380    marc('740','a',
381            rec('200','k')
382    );
383    
384    } else {
385    marc('740','a',
386            rec('464','a')
387    );
388    };
389    
390    
391  # višerazinci  
392    ## višerazinci
393    
394  if ( rec('230') ) {  if ( rec('230') ) {
395    
396          marc_duplicate();          marc_duplicate();
397            
398          marc_remove('245');          marc_remove('245');
399            marc_compose('245',
400          marc('245','a',          'a', suffix(
401                  rec('230','a')                  rec('200','b') ? '. '   :
402                    rec('200','k') ? ' ; '  :
403                    rec('200','d') ? ' = '  :
404                    rec('200','e') ? ' : '  :
405                    rec('200','f') ? ' / '  :
406                                     '.',
407                            rec('230','a')
408            ),
409            'b',
410                    join_with(' ; ',
411                            rec('230','k'),
412                    ),
413            'b', rec('230','d'),
414            'b',
415                    join_with(' : ',
416                            rec('230','e'),
417                    ),
418            'c',
419                    join_with(' ; ',
420                            rec('230','f'),
421                    ),
422          );          );
423    
424          if ( ! rec('230','a') ) {          marc_remove('260');
425            marc('260','c',
426                  marc('245','a',                  rec('250')
                         rec('200','a')  
                 );  
         }  
   
         marc('245','b',  
                 rec('230','e')  
427          );          );
428    
429          marc('245','c',          marc_remove('300');
430                  rec('230','f')          marc('300','a',
431                    rec('260')
432          );          );
433    
434          marc('245','n',          marc_remove('490');
435                  rec('230','v')          marc('490','a',
436                    rec('270')
437          );          );
438    
439  }          marc_remove('500');
440            marc('500','a',
441  if ( rec('231') ) {                  rec('280')
   
         marc_duplicate();  
         marc_remove('245');  
   
         marc('245','a',  
                 rec('231','a')  
442          );          );
443    
444          if ( ! rec('231','a') ) {          marc_remove('020');
445            marc('020','a',
446                  marc('245','a',                  rec('290')
                         rec('200','a')  
                 );  
         }  
   
         marc('245','b',  
                 rec('231','e')  
447          );          );
448    
449          marc('245','c',          marc_indicators('774', 0, ' ');
450                  rec('231','f')          marc('774','6',
451                    join_with('',
452                            config(),
453                            rec('000')
454                    )
455          );          );
456    
457          marc('245','n',          marc('774','g',
458                  rec('231','v')                  rec('230','v')
459          );          );
460    
461    };
462    
463  }  }
 }  
Legend:
Removed from v.612  
changed lines
  Added in v.629
  ViewVC Help
Powered by ViewVC 1.1.26