Parent Directory | Revision Log | Patch
revision 667 by dpavlin, Mon Sep 11 12:56:05 2006 UTC | revision 668 by dpavlin, Mon Sep 11 14:28:56 2006 UTC | |
---|---|---|
# | Line 757 warn "====> $sf $o / $#$sfs ", dump( $sf | Line 757 warn "====> $sf $o / $#$sfs ", dump( $sf |
757 | } else { | } else { |
758 | if ($include_subfields) { | if ($include_subfields) { |
759 | my $out = ''; | my $out = ''; |
760 | foreach my $sf (keys %$h) { | foreach my $sf (sort keys %$h) { |
761 | if (ref($h->{$sf}) eq 'ARRAY') { | if (ref($h->{$sf}) eq 'ARRAY') { |
762 | $out .= '^' . $sf . join('^' . $sf, @{ $h->{$sf} }); | $out .= '^' . $sf . join('^' . $sf, @{ $h->{$sf} }); |
763 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |