Parent Directory | Revision Log | Patch
revision 830 by dpavlin, Wed Apr 11 10:09:34 2007 UTC | revision 831 by dpavlin, Wed May 23 20:03:14 2007 UTC | |
---|---|---|
# | Line 872 sub _pack_subfields_hash { | Line 872 sub _pack_subfields_hash { |
872 | ||
873 | my ($h,$include_subfields) = @_; | my ($h,$include_subfields) = @_; |
874 | ||
875 | # sanity and ease of use | |
876 | return $h if (ref($h) ne 'HASH'); | |
877 | ||
878 | if ( defined($h->{subfields}) ) { | if ( defined($h->{subfields}) ) { |
879 | my $sfs = delete $h->{subfields} || die "no subfields?"; | my $sfs = delete $h->{subfields} || die "no subfields?"; |
880 | my @out; | my @out; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |