/[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 641 by dpavlin, Wed Sep 6 20:54:47 2006 UTC revision 661 by dpavlin, Fri Sep 8 17:47:58 2006 UTC
# Line 24  use strict; Line 24  use strict;
24    
25  #use base qw/WebPAC::Common/;  #use base qw/WebPAC::Common/;
26  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
 use Encode qw/from_to/;  
27  use Storable qw/dclone/;  use Storable qw/dclone/;
28    
29  # debugging warn(s)  # debugging warn(s)
# Line 37  WebPAC::Normalize - describe normalisato Line 36  WebPAC::Normalize - describe normalisato
36    
37  =head1 VERSION  =head1 VERSION
38    
39  Version 0.17  Version 0.18
40    
41  =cut  =cut
42    
43  our $VERSION = '0.17';  our $VERSION = '0.18';
44    
45  =head1 SYNOPSIS  =head1 SYNOPSIS
46    
# Line 470  sub marc { Line 469  sub marc {
469          foreach (@_) {          foreach (@_) {
470                  my $v = $_;             # make var read-write for Encode                  my $v = $_;             # make var read-write for Encode
471                  next unless (defined($v) && $v !~ /^\s*$/);                  next unless (defined($v) && $v !~ /^\s*$/);
                 from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);  
472                  my ($i1,$i2) = defined($marc_indicators->{$f}) ? @{ $marc_indicators->{$f} } : (' ',' ');                  my ($i1,$i2) = defined($marc_indicators->{$f}) ? @{ $marc_indicators->{$f} } : (' ',' ');
473                  if (defined $sf) {                  if (defined $sf) {
474                          push @{ $marc_record->[ $marc_record_offset ] }, [ $f, $i1, $i2, $sf => $v ];                          push @{ $marc_record->[ $marc_record_offset ] }, [ $f, $i1, $i2, $sf => $v ];
# Line 550  sub marc_compose { Line 548  sub marc_compose {
548                  my $v = shift;                  my $v = shift;
549    
550                  next unless (defined($v) && $v !~ /^\s*$/);                  next unless (defined($v) && $v !~ /^\s*$/);
                 from_to($v, 'iso-8859-2', $marc_encoding) if ($marc_encoding);  
551                  warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);                  warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);
552                  if ($sf ne '+') {                  if ($sf ne '+') {
553                          push @$m, ( $sf, $v );                          push @$m, ( $sf, $v );
# Line 731  above. Line 728  above.
728    
729  sub _pack_subfields_hash {  sub _pack_subfields_hash {
730    
731          warn "## _pack_subfields_hash( ",dump(@_), " )\n";          warn "## _pack_subfields_hash( ",dump(@_), " )\n" if ($debug > 1);
732    
733          my ($h,$include_subfields) = @_;          my ($h,$include_subfields) = @_;
734    
# Line 777  sub rec1 { Line 774  sub rec1 {
774                  my @out;                  my @out;
775                  foreach my $h ( @{ $rec->{$f} } ) {                  foreach my $h ( @{ $rec->{$f} } ) {
776                          if (ref($h) eq 'HASH') {                          if (ref($h) eq 'HASH') {
 warn "rec1 hash: ",dump($h),"\n";  
777                                  push @out, ( _pack_subfields_hash( $h ) );                                  push @out, ( _pack_subfields_hash( $h ) );
778                          } else {                          } else {
779                                  push @out, $h;                                  push @out, $h;

Legend:
Removed from v.641  
changed lines
  Added in v.661

  ViewVC Help
Powered by ViewVC 1.1.26