/[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 905 by dpavlin, Mon Oct 29 21:59:43 2007 UTC revision 964 by dpavlin, Fri Nov 2 13:00:55 2007 UTC
# Line 97  marc_fixed('008','39','d');            # 39 - Cata Line 97  marc_fixed('008','39','d');            # 39 - Cata
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',  marc('020','a',
100          regex('s/ ISBN //g',          regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',
101                  rec('10')                  rec('10')
102          )          )
103  );  );
# Line 168  if ( grep( m/prijevod/i, rec('300')) || Line 168  if ( grep( m/prijevod/i, rec('300')) ||
168  #_debug(2);  #_debug(2);
169    
170  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
171          rec('101')          lc( rec('101') )
172  );  );
173    
174  #_debug(0);  #_debug(0);
# Line 321  if (   ( rec('200','a') =~ m/^An /) && ( Line 321  if (   ( rec('200','a') =~ m/^An /) && (
321    
322  marc_compose('245',  marc_compose('245',
323          'a', suffix(          'a', suffix(
324                  ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :                    ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' /' :  
325                  ( rec('200','d') ) ? ' = ' :                  ( rec('200','d') ) ? ' =' :
326                  ( rec('200','e') ) ? ' : ' :                  ( rec('200','e') ) ? ' :' :
327                  ( rec('200','k') ) ? ' ; ' :                  ( rec('200','k') ) ? ' ;' :
328                          '',                          '',
329                          rec('200','a'),                          rec('200','a'),
330          ),          ),
331          'b', suffix(          'b', suffix(
332                  ( rec('200','d') && rec('200','f') ) ? ' / ' :                  ( rec('200','d') && rec('200','f') ) ? ' /' :
333                  ( rec('200','d') && rec('200','c') ) ? '. '  :                  ( rec('200','d') && rec('200','c') ) ? '.'  :
334                          '',                          '',
335                          rec('200','d'),                          rec('200','d'),
336          ),          ),
337          'b', suffix(          'b', suffix(
338                  ( rec('200','e') && rec('200','f') ) ? ' / ' :                  ( rec('200','e') && rec('200','f') ) ? ' /' :
339                  ( rec('200','e') && rec('200','c') ) ? '. '  :                  ( rec('200','e') && rec('200','c') ) ? '.'  :
340                          '',                          '',
341                          rec('200','e'),                          rec('200','e'),
342          ),          ),
343          'b', suffix(          'b', suffix(
344                  ( rec('200','k') && rec('200','f') ) ? ' / ' :                  ( rec('200','k') && rec('200','f') ) ? ' /' :
345                  ( rec('200','k') && rec('200','c') ) ? '. '  :                  ( rec('200','k') && rec('200','c') ) ? '.'  :
346                          '',                          '',
347                          rec('200','k'),                          rec('200','k'),
348          ),          ),
349          'c', suffix(          'c', suffix(
350                  ( rec('200','f') && rec('200','c') ) ? '. ' :                  ( rec('200','f') && rec('200','c') ) ? '.' :
351                          '',                          '',
352                          rec('200','f'),                          rec('200','f'),
353          ),          ),
354          '+', rec('200','c'),          '+', suffix('.',
355                    rec('200','c'),
356            ),
357  );  );
358    
359  #marc_compose('245',  #marc_compose('245',
# Line 847  if ($series) { Line 849  if ($series) {
849  } else {  } else {
850    
851  $series = join_with('',  $series = join_with('',
852          config(),          uc( config() ),
853          'LS',          ' LS',
854          rec('000')          rec('000')
855  );  );
856    
Legend:
Removed from v.905  
changed lines
  Added in v.964
  ViewVC Help
Powered by ViewVC 1.1.26