/[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 565 by dpavlin, Sun Jul 2 20:33:13 2006 UTC revision 566 by dpavlin, Sun Jul 2 21:17:54 2006 UTC
# Line 664  sub split_rec_on { Line 664  sub split_rec_on {
664          my $v = shift @r;          my $v = shift @r;
665          warn "### first rec($fld,$sf) = ",dump($v) if ($debug > 2);          warn "### first rec($fld,$sf) = ",dump($v) if ($debug > 2);
666    
667            return '' if( ! defined($v) || $v =~ /^\s*$/);
668    
669          my @s = split( $regex, $v );          my @s = split( $regex, $v );
670          warn "## split_rec_on($fld,$sf,$regex,$part) = ",dump(@s) if ($debug > 1);          warn "## split_rec_on($fld,$sf,$regex,$part) = ",dump(@s) if ($debug > 1);
671          if ($part > 0) {          if ($part && $part > 0) {
672                  return $s[ $part - 1 ];                  return $s[ $part - 1 ];
673          } else {          } else {
674                  return @s;                  return [ @s ];
675          }          }
676  }  }
677    

Legend:
Removed from v.565  
changed lines
  Added in v.566

  ViewVC Help
Powered by ViewVC 1.1.26