/[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 343 by dpavlin, Mon Jan 2 10:58:26 2006 UTC revision 344 by dpavlin, Sat Jan 7 02:05:55 2006 UTC
# Line 358  sub parse { Line 358  sub parse {
358                          $found_any->{$fld_type} += $found;                          $found_any->{$fld_type} += $found;
359    
360                          # we will skip delimiter before first occurence of field!                          # we will skip delimiter before first occurence of field!
361                          push @out, $del unless($found_any == 1);                          push @out, $del unless($found_any->{$fld_type} == 1);
362                          push @out, $tmp;                          push @out, $tmp;
363                  }                  }
364                  $f_step++;                  $f_step++;

Legend:
Removed from v.343  
changed lines
  Added in v.344

  ViewVC Help
Powered by ViewVC 1.1.26