/[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 585 by dpavlin, Wed Jul 5 00:12:08 2006 UTC revision 586 by dpavlin, Thu Jul 6 10:31:13 2006 UTC
# Line 516  sub marc_compose { Line 516  sub marc_compose {
516                  warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);                  warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);
517          }          }
518    
519          warn "## marc_compose(d) ", dump( $m ),$/ if ($debug > 1);          warn "## marc_compose current marc = ", dump( $m ),$/ if ($debug > 1);
520    
521          push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2);          push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2);
522  }  }
# Line 777  Joins walues with some delimiter Line 777  Joins walues with some delimiter
777    
778  sub join_with {  sub join_with {
779          my $d = shift;          my $d = shift;
780            warn "### join_with('$d',",dump(@_),")\n" if ($debug > 2);
781          my $v = join($d, grep { defined($_) && $_ ne '' } @_);          my $v = join($d, grep { defined($_) && $_ ne '' } @_);
782          return '' unless defined($v);          return '' unless defined($v);
783          return $v;          return $v;

Legend:
Removed from v.585  
changed lines
  Added in v.586

  ViewVC Help
Powered by ViewVC 1.1.26