Changeset 28263 for main/trunk/greenstone2/perllib/cgiactions/docextractaction.pm

Timestamp:

2013-09-12T10:31:48+12:00 (11 years ago)

Author:

davidb

Message:

Code added to make the new document have a differentdoc-id from the original document it came from

File:

• main/trunk/greenstone2/perllib/cgiactions/docextractaction.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/cgiactions/docextractaction.pm

@@ -117 +117 @@
     
     1;
+}
+
+
+
+sub dxml_metadata
+{
+    my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_;
+
+    my $parent_sec_num_hash = $parser->{'parameters'}->{'parent_sec_num_hash'};
+    
+    my $keep_parent_metadata = $parser->{'parameters'}->{'keep_parent_metadata'};
+    my $keep_parent_content  = $parser->{'parameters'}->{'keep_parent_content'};
+
+    my $mode = $parser->{'parameters'}->{'mode'};
+
+    if ($mode eq "extract") {
+
+        my $new_docid = $parser->{'parameters'}->{'new_docid'};
+        if ($attrHash->{'name'} eq "Identifier") {
+        $attrHash->{'_content'} = $new_docid;
+        }
+    }
+
+    return [ $tagname => $attrHash ];
 }
 
@@ -232 +256 @@
     ( 
         _default => 'raw',
-        'Section' => \&dxml_section
+        'Section' => \&dxml_section,
+            'Metadata' => \&dxml_metadata
     );
         
@@ -276 +301 @@
                     keep_parent_metadata => $self->{'keep-parent-metadata'},
                     keep_parent_content  => $self->{'keep-parent-content'},
+                    new_docid            => $self->{'new_docid'},
                         mode => $mode };
 
@@ -361 +387 @@
     my $timestamp = time();
     my $new_docid = $self->{'newd'} || "HASH$timestamp";
+    $self->{'new_docid'} = $new_docid;
 
     $self->{'keep-parent-metadata'} = $self->parse_flag("keep-parent-metadata");