r1733@llin: dpavlin | 2008-08-31 11:14:02 +0200

[webpac2] / lib / WebPAC / Normalize / MARC.pm

diff --git a/lib/WebPAC/Normalize/MARC.pm b/lib/WebPAC/Normalize/MARC.pm
index 2126483..e298bc3 100644 (file)
--- a/lib/WebPAC/Normalize/MARC.pm
+++ b/lib/WebPAC/Normalize/MARC.pm
@@ -6,6 +6,7 @@ our @EXPORT = qw/
        marc_duplicate marc_remove marc_count
        marc_original_order
        marc_template
+       marc_clone
 /;
 
 use strict;
@@ -623,6 +624,21 @@ sub marc_count {
        return $#{ $marc_record };
 }
 
+=head2 marc_clone
+
+Clone marc records from input file, whole or just some fields/indicators
+
+  marc_clone;  # whole record
+
+=cut
+
+sub marc_clone {
+       foreach my $f ( keys %$rec ) {
+               warn "## clone $f";
+               marc_original_order( $f, $f );
+       }
+}
+
 =head1 PRIVATE FUNCTIONS
 
 =head2 _marc_push