/[webpac2]/trunk/conf/normalize/ff-peri.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/ff-peri.pl

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

revision 758 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 773 by dpavlin, Fri Nov 3 20:41:12 2006 UTC
# Line 15  if ( rec('999') && first(rec('999')) =~ Line 15  if ( rec('999') && first(rec('999')) =~
15  }  }
16    
17          marc_leader('06','a');          marc_leader('06','a');
18          marc_leader('07','m');          marc_leader('07','s');
19          marc_leader('18','i');          marc_leader('18','i');
20    
 if ( rec('230') ) {  
21          marc_leader('19','r');          marc_leader('19','r');
 }  
22    
23    
24  # 001 polje - Voyager  # 001 polje - Voyager
# Line 104  marc_compose('245', Line 102  marc_compose('245',
102          'h', rec('200','b'),          'h', rec('200','b'),
103          'b', suffix(          'b', suffix(
104                  ( rec('200','k') && rec('200','f') ) ? ' / ' :                  ( rec('200','k') && rec('200','f') ) ? ' / ' :
105                                       ' ',                                                         ' ',
106                          join_with(' ; ',                          join_with(' ; ',
107                                  rec('200','k'),                                  rec('200','k'),
108                          ),                          ),
# Line 129  marc_compose('245', Line 127  marc_compose('245',
127          ),          ),
128  # FIXME append to last subfield  # FIXME append to last subfield
129  #       '+', prefix('. ', rec('200','c') ),  #       '+', prefix('. ', rec('200','c') ),
130    
131  );  );
132    
133    
# Line 156  marc_original_order('260', '210'); Line 155  marc_original_order('260', '210');
155    
156  marc('300','a',  marc('300','a',
157          suffix(          suffix(
158                  rec('215','c')  ?       ' : ' :                  rec('215','c')  ?  ' : ' :
159                  rec('215','d')  ?       ' ; ' :                  rec('215','d')  ?  ' ; ' :
160                  rec('215','e')  ?       ' + ' :                  rec('215','e')  ?  ' + ' :
161                                          ' ',                                     ' ',
162                          rec('215','a')                          rec('215','a')
163          )          )
164  );  );
165    
166  marc('300','b',  marc('300','b',
167          suffix(          suffix(
168                  ( rec('215','c') && rec('215','d') )    ?       ' ; ' :                  ( rec('215','c') && rec('215','d') )    ?  ' ; ' :
169                  ( rec('215','c') && rec('215','e') )    ?       ' + ' :                  ( rec('215','c') && rec('215','e') )    ?  ' + ' :
170                                                                  ' ',                                                             ' ',
171                          rec('215','c')                          rec('215','c')
172          )          )
173  );  );
# Line 384  marc('700','a', Line 383  marc('700','a',
383          )          )
384  );  );
385    
 ## treba provjeriti da li polje 330 sadrzi jos neke podatke koji mogu biti u <> ili su tu iskljucivo autori? da li samo autori ili neke druge osobe?  
   
   
 # marc('700','a',  
 #       rec('330','a')  
 # );  
 #  
 #  
 # marc('700','a',  
 #       rec('330','b')  
 # );  
 #  
 # marc('700','a',  
 #       rec('330','c')  
 # );  
 #  
 #  
 # marc('700','a',  
 #       rec('330','d')  
 # );  
 #  
 # marc('700','a',  
 #       rec('330','e')  
 # );  
 #  
 # marc('700','a',  
 #       rec('330','f')  
 # );  
386    
387  #_debug(0);  #_debug(0);
388    
# Line 474  marc('740','a', Line 445  marc('740','a',
445  marc('500','a',  marc('500','a',
446          lookup(          lookup(
447                  sub { rec('304','a') },                  sub { rec('304','a') },
448                  'ffps','baza',                  'nsk','baza',
449                  sub { rec('200','a') },                  sub { rec('200','a') },
450          )          )
451  );  );
452    
453    marc('500','a',
454            lookup(
455                    sub { rec('306','a') },
456                    'nsk','baza',
457                    sub { rec('200','a') },
458            )
459    );
460    
461    marc('500','a',
462            lookup(
463                    sub { rec('314','a') },
464                    'nsk','baza',
465                    sub { rec('200','a') },
466            )
467    );
468    
469    marc('500','a',
470            lookup(
471                    sub { rec('316','a') },
472                    'nsk','baza',
473                    sub { rec('200','a') },
474            )
475    );
476    
477    marc('504','a',
478            lookup(
479                    sub { rec('320','a') },
480                    'nsk','baza',
481                    sub { rec('200','a') },
482            )
483    );
484    
485    marc('900','a',
486            sort(
487                    lookup(
488                            sub { rec('000') },
489                            'ffps','peri',
490                            sub { rec('200','a') },
491                    )
492            )
493    );
494    
495  }  }
Legend:
Removed from v.758  
changed lines
  Added in v.773
  ViewVC Help
Powered by ViewVC 1.1.26