/[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 816 by dpavlin, Thu Apr 5 21:48:41 2007 UTC revision 842 by dpavlin, Fri May 25 19:48:02 2007 UTC
# Line 19  if ( rec('999') && first(rec('999')) =~ Line 19  if ( rec('999') && first(rec('999')) =~
19          marc_leader('05','n');          marc_leader('05','n');
20  }  }
21    
22    # moguća je i oznaka "m" u 06 - odrediti kriterije
23          marc_leader('06','a');          marc_leader('06','a');
24          marc_leader('07','m');          marc_leader('07','m');
25          marc_leader('18','i');          marc_leader('18','i');
# Line 57  if ( rec('994','c') ) { Line 58  if ( rec('994','c') ) {
58  ## FIXME treba velika slova pretvoriti u mala  ## FIXME treba velika slova pretvoriti u mala
59    
60  marc_fixed('008','35',  marc_fixed('008','35',
61          first( rec('101') )          first( lc(rec('101')) )
62  );  );
63    
64    
# Line 69  marc_fixed('008','35', Line 70  marc_fixed('008','35',
70    
71    
72  marc('035','6',  marc('035','6',
73  join_with(' ',  join_with('',
74  #               config('input normalize path'),  #               config('input normalize path'),
75  #               config('name'),  #               config('name'),
76                  config(),                  config(),
# Line 225  marc_indicators('245', $i1, 0); Line 226  marc_indicators('245', $i1, 0);
226    
227  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
228          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
229            ( rec('200','a') =~ m/^Der /) ||
230          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
231                  marc_indicators('245', $i1, 4);                  marc_indicators('245', $i1, 4);
232  }  }
# Line 245  if (   ( rec('200','a') =~ m/^An /) && ( Line 247  if (   ( rec('200','a') =~ m/^An /) && (
247    
248  marc_compose('245',  marc_compose('245',
249          'a', suffix(          'a', suffix(
250                  ( ! rec('200','b') && ( rec('200','f') || rec('200','c') ) ) ? ' / ' : ' ',                  ( ! rec('200','p') && ( rec('200','f') || rec('200','c') ) ) ? ' / ' :  
251                    ( rec('200','p') && rec('200','c') ) ? ' : '  :
252                            '',
253                          rec('200','a'),                          rec('200','a'),
254          ),          ),
255          'b', suffix(          'b', suffix(
256                  ( rec('200','b') && rec('200','f') ) ? ' / ' :                  ( rec('200','p') && rec('200','f') ) ? ' / ' :
257                  ( rec('200','b') && rec('200','c') ) ? '. '  :                  ( rec('200','p') && rec('200','c') ) ? '. '  :
258                          ' ',                          '',
259                          rec('200','b'),                          rec('200','p'),
260          ),          ),
261          'c', suffix(          'c', suffix(
262                  ( rec('200','f') && rec('200','c') ) ? '. ' :                  ( rec('200','f') && rec('200','c') ) ? '. ' :
263                          ' ',                          '',
264                          rec('200','f'),                          rec('200','f'),
265          ),          ),
266          '+', rec('200','c'),          '+', rec('200','c'),
# Line 307  marc_compose('245', Line 311  marc_compose('245',
311    
312  ### 250  ### 250
313    
314  marc('250','a',  marc_compose('250',
315          suffix(          'a',suffix(
316                  rec('205','f') ? ' / ' :                  rec('205','f') ? ' / ' :
317                                   ' '.                          ' ',
318                          rec('205','a')                          rec('205','a')
319          )          ),
320            'b', rec('205','f'),
321  );  );
322    
323  marc('250','b',  #marc('250','b',
324          rec('205','f')  #       rec('205','f')
325  );  #);
326    
327    
328  ### 260  ### 260
# Line 380  if (   ( rec('225','a') =~ m/^An /) && ( Line 385  if (   ( rec('225','a') =~ m/^An /) && (
385                  marc_indicators('440', ' ', 2);                  marc_indicators('440', ' ', 2);
386  }  }
387    
388  marc('440','a',  #_debug(3);
389          rec('225','a'),  
390    marc('440',
391            'a', suffix( rec('225','f'),
392                            rec('225','a'),
393            ),
394  );  );
395    
396    #       join_with(' / ',
397    #               join_with(' ',
398    #                       rec('225','a'),
399    #                       rec('225','p'),
400    #               ),
401    #                       rec('225','f')
402    #       ),
403    
404    #_debug(0);
405    
406  marc('440','n',  marc('440','n',
407          rec('225','h')          rec('225','h')
408  );  );
# Line 642  marc('740','a', Line 661  marc('740','a',
661    
662  ### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim  ### generiranje zapisa o nakladničkoj cjelini i povezivanje podređenog zapisa s nadređenim
663    
664    if (
665            rec('225','a')  # da li je nakladnicka cjelina?
666    ) {
667    
668    my $series_key =
669    join_with('',
670            rec('225','a'),
671            rec('210','a'),
672            rec('210','b'),
673    );
674    
675    my $series = get( $series_key );
676    
677    if ($series) {
678            warn "nije novi";
679    } else {
680    
681    
682    $series = join_with('',
683            config(),
684            'LS',
685            rec('000')
686    );
687    
688    set( $series_key => $series );
689    
690    }
691    }
692    
693  my $series_key = join_with('',  my $series_key = join_with('',
694          rec('225','a'),          rec('225','a'),
# Line 657  if ($series_key) { Line 704  if ($series_key) {
704                  get( $series_key )                  get( $series_key )
705          );          );
706  }  }
   
707  ### testing  ### testing
708  #  #
709  # my $dup_key = join_with('',  # my $dup_key = join_with('',
Legend:
Removed from v.816  
changed lines
  Added in v.842
  ViewVC Help
Powered by ViewVC 1.1.26