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

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

revision 804 by dpavlin, Tue Jan 30 18:23:53 2007 UTC revision 805 by dpavlin, Fri Mar 2 00:34:22 2007 UTC
# Line 22  marc('022','a', Line 22  marc('022','a',
22    
23  marc_indicators('245', 1, 0);  marc_indicators('245', 1, 0);
24    
25  if (    ( rec('200','a') =~ m/^Die /) ||  marc('245','a',
26          ( rec('200','a') =~ m/^Das /) ||          rec('200','a')
         ( rec('200','a') =~ m/^The /) ) {  
                 marc_indicators('245', 1, 4);  
 }  
   
 if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  
         {  
                 marc_indicators('245', 1, 2);  
 }  
   
   
 ### 245  
 # redoslijed polja  
   
 #_debug(3);  
 marc_compose('245',  
         'a', suffix(  
                 rec('200','b') ? '. '   :  
                 rec('200','k') ? ' ; '  :  
                 rec('200','d') ? ' = '  :  
                 rec('200','e') ? ' : '  :  
                 rec('200','f') ? ' / '  :  
                                  '.',  
                         rec('200','a')  
         ),  
 #       'h', rec('200','b'),  
         'b', suffix(  
                 ( rec('200','k') && rec('200','f') ) ? ' / ' :  
                                      ' ',  
                         join_with(' ; ',  
                                 rec('200','k'),  
                         ),  
         ),  
         'b', suffix(  
                 ( rec('200','d') && rec('200','f') ) ? ' / ' :  
                                                        ' ',  
                                 rec('200','d'),  
         ),  
         'b', suffix(  
                 ( rec('200','e') && rec('200','f') ) ? ' / ' :  
                                                        ' ',  
                         join_with(' : ',  
                                 rec('200','e'),  
                         ),  
         ),  
   
         'c', rec('200','f'),  
   
 # append to last subfield  
         '+', prefix('. ',  
                 rec('200','c')  
         ),  
27  );  );
28    
   
29  marc('260','c',  marc('260','c',
30          rec('210','d')          rec('210','d')
31                    
Legend:
Removed from v.804  
changed lines
  Added in v.805
  ViewVC Help
Powered by ViewVC 1.1.26