/[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 340 by dpavlin, Mon Jan 2 10:58:26 2006 UTC revision 346 by dpavlin, Sat Jan 7 03:28:10 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++;
# Line 600  sub get_data { Line 600  sub get_data {
600                          if ($$rec->{$f}->[$i] =~ /HASH/o) {                          if ($$rec->{$f}->[$i] =~ /HASH/o) {
601                                  my $out;                                  my $out;
602                                  foreach my $k (keys %{$$rec->{$f}->[$i]}) {                                  foreach my $k (keys %{$$rec->{$f}->[$i]}) {
603                                          $out .= $$rec->{$f}->[$i]->{$k}." ";                                          my $v = $$rec->{$f}->[$i]->{$k};
604                                            $out .= "$v " if ($v);
605                                  }                                  }
606                                  return $out;                                  return $out;
607                          } else {                          } else {

Legend:
Removed from v.340  
changed lines
  Added in v.346

  ViewVC Help
Powered by ViewVC 1.1.26