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

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

revision 1009 by dpavlin, Fri Nov 2 13:00:55 2007 UTC revision 1010 by dpavlin, Tue Nov 6 20:20:37 2007 UTC
# Line 96  marc_fixed('008','39','d');            # 39 - Cata Line 96  marc_fixed('008','39','d');            # 39 - Cata
96  ### 020  ### 020
97  # postoji modify -> drugi ISBN počinje prefixom "ISBN" koji se miče (sfb)  # postoji modify -> drugi ISBN počinje prefixom "ISBN" koji se miče (sfb)
98    
99  marc('020','a',  if ( frec('10') ne frec('290') ) {
100          regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',          marc('020','a',
101                  rec('10')                  regex('s/-//g',
102          )                          rec('10')
103  );                  )
104            );
105    }
106    
107    #warn(
108    #       dump(
109    #               frec('10')
110    #       ),
111    #);
112    
113  ### 035$6  ### 035$6
114  # Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku.  # Privemeno koristimo 035$6 umjesto 035$9, zato što marclint prijavljuje 9 kao grešku.
# Line 154  marc('040','e', Line 161  marc('040','e',
161  # ????  # ????
162    
163    
164  #if ( rec('675') =~ m/\d=\d/ ) {  #if ( rec('675') =~ m/\d=\d/ ) ??
165  if ( grep( m/prijevod/i, rec('300')) || grep( m/prevedeno/i, rec('300')) || grep( m/izv.*stv.*nasl/i, rec('300')) || grep( m/izvornik/i, rec('300')) || grep( m/preve/i, rec('200','f')) || grep( m/preve/i, rec('200','g')) || grep( m/prijevod/i, rec('200','f')) || grep( m/prijevod/i, rec('200','g')) ) {  
166    if (
167            grep( m/[prijevod|prevedeno|izv.*stv.*nasl|izvornik]/i, rec('300') ) ||
168            grep( m/[preve|prijevod]/i, rec('200','f')) ||
169            grep( m/[preve|prijevod]/i, rec('200','g'))  
170    ) {
171          marc_indicators('041', 1, ' ');          marc_indicators('041', 1, ' ');
172  } else {  } else {
173          marc_indicators('041', 0, ' ');          marc_indicators('041', 0, ' ');
# Line 168  if ( grep( m/prijevod/i, rec('300')) || Line 180  if ( grep( m/prijevod/i, rec('300')) ||
180  #_debug(2);  #_debug(2);
181    
182  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
183          lc( rec('101') )          map { lc($_) } rec('101')
184  );  );
185    
186  #_debug(0);  #_debug(0);
# Line 302  marc_indicators('245', $i1, 0); Line 314  marc_indicators('245', $i1, 0);
314  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
315          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
316          ( rec('200','a') =~ m/^Der /) ||          ( rec('200','a') =~ m/^Der /) ||
317            ( rec('200','a') =~ m/^Les /) ||
318          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
319                  marc_indicators('245', $i1, 4);                  marc_indicators('245', $i1, 4);
320    
321  }  }
322    
323  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {  if (    ( rec('200','a') =~ m/^Un /) ||
324                  marc_indicators('245', $i1, 2);          ( rec('200','a') =~ m/^An /) ||
325            ( rec('200','a') =~ m/^La /) ||
326            ( rec('200','a') =~ m/^Le /) ||
327            ( rec('200','a') =~ m/^Il /) ) {
328                    marc_indicators('245', $i1, 3);
329  }  }
330    
331  if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {  if (    ( rec('200','a') =~ m/^A /) ||
332            ( rec('200','a') =~ m/^L'/) ) {
333                  marc_indicators('245', $i1, 2);                  marc_indicators('245', $i1, 2);
334  }  }
335    
# Line 349  marc_compose('245', Line 368  marc_compose('245',
368          'c', suffix(          'c', suffix(
369                  ( rec('200','f') && rec('200','c') ) ? '.' :                  ( rec('200','f') && rec('200','c') ) ? '.' :
370                          '',                          '',
371                          rec('200','f'),                          join_with(' ; ',
372                                    rec('200','f'),
373                                    rec('200','g')
374                            )
375          ),          ),
376          '+', suffix('.',          '+', suffix('.',
377                  rec('200','c'),                  rec('200','c'),
# Line 495  if (   ( rec('225','a') =~ m/^An /) && ( Line 517  if (   ( rec('225','a') =~ m/^An /) && (
517  #_debug(3);  #_debug(3);
518    
519  ### 440  ### 440
520    ## marc_compose radi samo kad polje ni potpolja nisu ponovljivi
521    
522    marc_compose('440',
523            'a', suffix(
524                    ( rec('225','v') ) ? ' ;' :
525                    ( rec('225','w') ) ? ' ; ' :
526                    ( rec('225','x') ) ? ',' :
527                    ( rec('225','h') || rec('225','i') ) ? '.' :
528                            '.',
529                            frec('225','a')
530            ),
531            'x',suffix(
532                    ( rec('225','x') && ( rec('225','h') || rec('225','i') ) ) ? '.' :
533                            '',
534                            frec('225','x')
535            ),
536            'v',suffix(
537                    ( rec('225','v') && ( rec('225','h') || rec('225','i') ) ) ? '.' :
538                    ( rec('225','v') && rec('225','w') ) ? ' ; ' :
539                            '',
540                            frec('225','v')
541            ),
542            'n',suffix(
543                    ( rec('225','h') && rec('225','i') ) ? ',' :
544                    ( rec('225','h') && rec('225','w') ) ? ' ; ' :
545                            '',
546                            frec('225','h')
547            ),
548            'p',suffix(
549                    ( rec('225','i') && rec('225','w') ) ? ' ; ' :
550                    ( rec('225','i') && rec('225','x') ) ? ',' :
551                            '',
552                            frec('225','i')
553            ),
554    ## 225w treba ici u 440v, na kraj
555            '+', join_with(' ; ',
556                    rec('225','w'),
557            )
558    );
559    
560    
561  marc_original_order('440','225');  #marc_original_order('440','225');
562    
563  #marc_compose('440',  #marc_compose('440',
564  #       'a', suffix(  #       'a', suffix(
Legend:
Removed from v.1009  
changed lines
  Added in v.1010
  ViewVC Help
Powered by ViewVC 1.1.26