/[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 345 by dpavlin, Sat Jan 7 02:05:55 2006 UTC revision 346 by dpavlin, Sat Jan 7 03:28:10 2006 UTC
# 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.345  
changed lines
  Added in v.346

  ViewVC Help
Powered by ViewVC 1.1.26