Changeset 22464 for main/trunk/greenstone2

Timestamp:

2010-07-21T13:49:42+12:00 (14 years ago)

Author:

ak19

Message:

Added in missing routine that had forgotten to be brought over from export.pl

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -34 +34 @@
 use colcfg;
 use dbutil;
+use doc;
 use plugin;
 use plugout;
@@ -691 +692 @@
 
     # write out the archive information file
-    $processor->close_file_output() if $groupsize > 1;
+    $processor->close_file_output() if (defined $groupsize) && ($groupsize > 1);
     $processor->close_group_output() if $processor->is_group();
 
@@ -754 +755 @@
 
 
-
-
-
+sub store_collectionmeta
+{
+    my ($collectionmeta,$field,$doc_obj) = @_;
+    
+    my $section = $doc_obj->get_top_section();
+    
+    my $field_hash = $collectionmeta->{$field};
+    
+    foreach my $k (keys %$field_hash)
+    {
+    my $val = $field_hash->{$k};
+    
+    ### print STDERR "*** $k = $field_hash->{$k}\n";
+    
+    my $md_label = "ex.$field";
+    
+    
+    if ($k =~ m/^\[l=(.*?)\]$/)
+    {
+        
+        my $md_suffix = $1;
+        $md_label .= "^$md_suffix";
+    }
+    
+    
+    $doc_obj->add_utf8_metadata($section,$md_label, $val);
+    
+    # see collConfigxml.pm: GS2's "collectionextra" is called "description" in GS3,
+    # while "collectionname" in GS2 is called "name" in GS3.
+    # Variable $nameMap variable in collConfigxml.pm maps between GS2 and GS3
+    if (($md_label eq "ex.collectionname^en") || ($md_label eq "ex.collectionname"))
+    {
+        $doc_obj->add_utf8_metadata($section,"dc.Title", $val);
+    }
+    
+    }
+}