/[webpac2]/trunk/lib/WebPAC/Normalize/MARC.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/MARC.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1062 by dpavlin, Wed Nov 21 10:09:55 2007 UTC revision 1108 by dpavlin, Sun Aug 31 09:14:18 2008 UTC
# Line 6  our @EXPORT = qw/ Line 6  our @EXPORT = qw/
6          marc_duplicate marc_remove marc_count          marc_duplicate marc_remove marc_count
7          marc_original_order          marc_original_order
8          marc_template          marc_template
9            marc_clone
10  /;  /;
11    
12  use strict;  use strict;
# Line 623  sub marc_count { Line 624  sub marc_count {
624          return $#{ $marc_record };          return $#{ $marc_record };
625  }  }
626    
627    =head2 marc_clone
628    
629    Clone marc records from input file, whole or just some fields/indicators
630    
631      marc_clone;   # whole record
632    
633    =cut
634    
635    sub marc_clone {
636            foreach my $f ( keys %$rec ) {
637                    warn "## clone $f";
638                    marc_original_order( $f, $f );
639            }
640    }
641    
642  =head1 PRIVATE FUNCTIONS  =head1 PRIVATE FUNCTIONS
643    
644  =head2 _marc_push  =head2 _marc_push
Legend:
Removed from v.1062  
changed lines
  Added in v.1108
  ViewVC Help
Powered by ViewVC 1.1.26