/[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 810 by dpavlin, Sun Apr 1 21:47:38 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 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.810

  ViewVC Help
Powered by ViewVC 1.1.26