/[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 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;

Legend:
Removed from v.830  
changed lines
  Added in v.831

  ViewVC Help
Powered by ViewVC 1.1.26