/[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 802 by dpavlin, Thu Feb 15 22:43:03 2007 UTC revision 807 by dpavlin, Sun Apr 1 12:26:25 2007 UTC
# Line 91  marc('040','e', Line 91  marc('040','e',
91  # to ima samo za književna djela, eseje....  # to ima samo za književna djela, eseje....
92    
93    
94  if ( rec('675') =~ m/\d=\d/ ) {  #if ( rec('675') =~ m/\d=\d/ ) {
95  #if ( first(rec('300')) =~ m/Prijevod/ || first(rec('300')) =~ m/Izv. stv. nasl./ ) {  if ( first(rec('300')) =~ m/Prijevod/ || first(rec('300')) =~ m/Izv. stv. nasl./ ) {
96          marc_indicators('041', 1, ' ');          marc_indicators('041', 1, ' ');
97  } else {  } else {
98          marc_indicators('041', 0, ' ');          marc_indicators('041', 0, ' ');
# Line 110  marc_repeatable_subfield('041','a', Line 110  marc_repeatable_subfield('041','a',
110    
111    
112  ### 080  ### 080
113  # 675 podpolja c, d ... - što s njima ???  # 675 podpolja b, c, d ... - što s njima ???
114    
115  marc('080','a',  marc('080','a',
116          rec('675','a')          rec('675','a')
# Line 130  marc('084','a', Line 130  marc('084','a',
130  ### 100  ### 100
131  # I1 = 0 ako je pseudonim (ima 700a, nema 700b)  # I1 = 0 ako je pseudonim (ima 700a, nema 700b)
132    
133  marc_indicators('100', 1, ' ');  if ( rec('700','a') && ! rec('700','b') ) {
134            marc_indicators('100', 0, ' ');
135    } else {
136            marc_indicators('100', 1, ' ');
137    }
138    
139  marc('100','a',  marc('100','a',
140          join_with(', ',          join_with(', ',
141                  rec('700', 'a'),                  rec('700', 'a'),
# Line 183  if (   ( rec('200','a') =~ m/^Die /) || Line 188  if (   ( rec('200','a') =~ m/^Die /) ||
188                  marc_indicators('245', 1, 4);                  marc_indicators('245', 1, 4);
189  }  }
190    
191  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )  if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
192          {                  marc_indicators('245', 1, 2);
193    }
194    
195    if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
196                  marc_indicators('245', 1, 2);                  marc_indicators('245', 1, 2);
197  }  }
198    
# Line 549  marc_indicators('740', 0, ' '); Line 557  marc_indicators('740', 0, ' ');
557  #       rec('200','c')  #       rec('200','c')
558  # );  # );
559    
560   marc('740','a',  marc('740','a',
561          rec('200','k')          rec('200','k')
562   );  );
563    
564  # } else {  # } else {
565    
# Line 577  if ($series_key) { Line 585  if ($series_key) {
585          marc('760','w',          marc('760','w',
586                  get( $series_key )                  get( $series_key )
587          );          );
   
588  }  }
589    
590  ### testing  ### testing
Legend:
Removed from v.802  
changed lines
  Added in v.807
  ViewVC Help
Powered by ViewVC 1.1.26