/[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 618 by dpavlin, Fri Aug 25 12:31:01 2006 UTC revision 619 by dpavlin, Fri Aug 25 12:31:06 2006 UTC
# Line 540  sub marc_compose { Line 540  sub marc_compose {
540    
541          warn "### marc_compose input subfields = ", dump(@_),$/ if ($debug > 2);          warn "### marc_compose input subfields = ", dump(@_),$/ if ($debug > 2);
542    
543            if ($#_ % 2 != 1) {
544                    die "ERROR: marc_compose",dump($f,@_)," not valid (must be even).\nDo you need to add first() or join() around some argument?\n";
545            }
546    
547          while (@_) {          while (@_) {
548                  my $sf = shift or die "marc_compose $f needs subfield";                  my $sf = shift;
549                  my $v = shift;                  my $v = shift;
550    
551                  next unless (defined($v) && $v !~ /^\s*$/);                  next unless (defined($v) && $v !~ /^\s*$/);
Legend:
Removed from v.618  
changed lines
  Added in v.619
  ViewVC Help
Powered by ViewVC 1.1.26