Changeset 20822

Timestamp:

2009-10-18T10:58:13+13:00 (15 years ago)

Author:

kjdon

Message:

added collectdir and site options so can be used with a -collection in greenstone3

File:

• gsdl/trunk/bin/script/explode_metadata_database.pl (modified) (3 diffs)

gsdl/trunk/bin/script/explode_metadata_database.pl

@@ -82 +82 @@
     'deft' => "100",
     'reqd' => "no" },
+       { 'name' => "collectdir",
+    'desc' => "{import.collectdir}",
+    'type' => "string",
+    # parsearg left "" as default
+    #'deft' => &util::filename_cat ($ENV{'GSDLHOME'}, "collect"),
+    'deft' => "",
+    'reqd' => "no",
+        'hiddengli' => "yes" },
+      { 'name' => "site",
+    'desc' => "{import.site}",
+    'type' => "string",
+    'deft' => "",
+    'reqd' => "no",
+        'hiddengli' => "yes" },
       { 'name' => "collection",
     'desc' => "{explode.collection}",
@@ -120 +134 @@
 {
     my ($language, $input_encoding, $metadata_set, $plugin, 
-    $document_field, $document_prefix, $document_suffix, $records_per_folder, $plugin_options, $collection, $use_collection_plugin_options, $verbosity);
+    $document_field, $document_prefix, $document_suffix, 
+    $records_per_folder, $plugin_options, $collectdir, $site, $collection, 
+    $use_collection_plugin_options, $verbosity);
 
     my $xml = 0;
@@ -187 +203 @@
     }
     if (defined $collection && $collection =~ /\w/) {
-    if (($collection = &colcfg::use_collection("", $collection, "")) eq "") {
+    if (($collection = &colcfg::use_collection($site, $collection, $collectdir)) eq "") {
         print STDERR "Collection $collection does not exist\n";
         die "\n";