/[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 944 by dpavlin, Wed Oct 31 18:07:33 2007 UTC
# 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.944
  ViewVC Help
Powered by ViewVC 1.1.26