/[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 786 by dpavlin, Sun Dec 10 12:45:11 2006 UTC revision 812 by dpavlin, Sun Apr 1 21:47:42 2007 UTC
# Line 21  use Exporter 'import'; Line 21  use Exporter 'import';
21          split_rec_on          split_rec_on
22    
23          get set          get set
24            count
25  /;  /;
26    
27  use warnings;  use warnings;
# Line 41  WebPAC::Normalize - describe normalisato Line 42  WebPAC::Normalize - describe normalisato
42    
43  =head1 VERSION  =head1 VERSION
44    
45  Version 0.25  Version 0.26
46    
47  =cut  =cut
48    
49  our $VERSION = '0.25';  our $VERSION = '0.26';
50    
51  =head1 SYNOPSIS  =head1 SYNOPSIS
52    
# Line 166  Return hash formatted as data structure Line 167  Return hash formatted as data structure
167    
168  =cut  =cut
169    
170  my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader);  my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader);
171  my ($marc_record_offset, $marc_fetch_offset) = (0, 0);  my ($marc_record_offset, $marc_fetch_offset) = (0, 0);
172    
173  sub _get_ds {  sub _get_ds {
# Line 183  Clean data structure hash for next recor Line 184  Clean data structure hash for next recor
184    
185  sub _clean_ds {  sub _clean_ds {
186          my $a = {@_};          my $a = {@_};
187          ($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader) = ();          ($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader) = ();
188          ($marc_record_offset, $marc_fetch_offset) = (0,0);          ($marc_record_offset, $marc_fetch_offset) = (0,0);
189          $marc_encoding = $a->{marc_encoding};          $marc_encoding = $a->{marc_encoding};
190  }  }
# Line 489  sub marc_leader { Line 490  sub marc_leader {
490          my ($offset,$value) = @_;          my ($offset,$value) = @_;
491    
492          if ($offset) {          if ($offset) {
493                  $leader->{ $offset } = $value;                  $marc_leader->{ $offset } = $value;
494          } else {          } else {
495                  return $leader;                  return $marc_leader;
496          }          }
497  }  }
498    
# Line 661  sub marc_remove { Line 662  sub marc_remove {
662          if ($f eq '*') {          if ($f eq '*') {
663    
664                  delete( $marc_record->[ $marc_record_offset ] );                  delete( $marc_record->[ $marc_record_offset ] );
665                    warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);
666    
667          } else {          } else {
668    
# Line 699  sub marc_remove { Line 701  sub marc_remove {
701                  $marc_record->[ $marc_record_offset ] = $marc;                  $marc_record->[ $marc_record_offset ] = $marc;
702          }          }
703    
   
704          warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);          warn "## full marc_record = ", dump( @{ $marc_record }), $/ if ($debug > 1);
705  }  }
706    
# Line 1272  my $hash; Line 1273  my $hash;
1273    
1274  sub set {  sub set {
1275          my ($k,$v) = @_;          my ($k,$v) = @_;
1276          warn "## set ( $k => ", dump($v), " )", $/;          warn "## set ( $k => ", dump($v), " )", $/ if ( $debug );
1277          $hash->{$k} = $v;          $hash->{$k} = $v;
1278  };  };
1279    
# Line 1285  sub set { Line 1286  sub set {
1286  sub get {  sub get {
1287          my $k = shift || return;          my $k = shift || return;
1288          my $v = $hash->{$k};          my $v = $hash->{$k};
1289          warn "## get $k = ", dump( $v ), $/;          warn "## get $k = ", dump( $v ), $/ if ( $debug );
1290          return $v;          return $v;
1291  }  }
1292    
1293    =head2 count
1294    
1295      if ( count( @result ) == 1 ) {
1296            # do something if only 1 result is there
1297      }
1298    
1299    =cut
1300    
1301    sub count {
1302            warn "## count ",dump(@_),$/ if ( $debug );
1303            return @_ . '';
1304    }
1305    
1306  # END  # END
1307  1;  1;

Legend:
Removed from v.786  
changed lines
  Added in v.812

  ViewVC Help
Powered by ViewVC 1.1.26