/[webpac2]/trunk/lib/WebPAC/Normalize.pm
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/lib/WebPAC/Normalize.pm

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

revision 564 by dpavlin, Sun Jul 2 20:14:21 2006 UTC revision 565 by dpavlin, Sun Jul 2 20:33:13 2006 UTC
# Line 457  sub marc_compose { Line 457  sub marc_compose {
457    
458          while (@_) {          while (@_) {
459                  my $sf = shift or die "marc_compose $f needs subfield";                  my $sf = shift or die "marc_compose $f needs subfield";
460                  my $v = shift or die "marc_compose $f needs value for subfield $sf";                  my $v = shift;
461    
462                  next unless (defined($v) && $v !~ /^\s*$/);                  next unless (defined($v) && $v !~ /^\s*$/);
463                  from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);                  from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);
# Line 467  sub marc_compose { Line 467  sub marc_compose {
467    
468          warn "## marc_compose(d) ", dump( $m ) if ($debug > 1);          warn "## marc_compose(d) ", dump( $m ) if ($debug > 1);
469    
470          push @{ $marc_record }, $m;          push @{ $marc_record }, $m if ($#{$m} > 2);
471  }  }
472    
473    
Legend:
Removed from v.564  
changed lines
  Added in v.565
  ViewVC Help
Powered by ViewVC 1.1.26