Changeset 12691

Timestamp:

2006-09-06T16:36:47+12:00 (18 years ago)

Author:

kjdon

Message:

added OIDtype and OIDmetadata to the option list. it was using OIDtype anyway, just not allowing it as an option. added assigned and dirname to the options.

File:

• trunk/gsdl/bin/script/export.pl (modified) (9 diffs)

trunk/gsdl/bin/script/export.pl

@@ -61 +61 @@
 my $oidtype_list = 
     [ { 'name' => "hash",
-        'desc' => "{export.OIDtype.hash}" },
+        'desc' => "{import.OIDtype.hash}" },
       { 'name' => "incremental",
-        'desc' => "{export.OIDtype.incremental}" } ];
+        'desc' => "{import.OIDtype.incremental}" },
+      { 'name' => "assigned",
+        'desc' => "{import.OIDtype.assigned}" },
+      { 'name' => "dirname",
+        'desc' => "{import.OIDtype.dirname}" } ];
 
 #** define to use the METS format or DSpace format
@@ -121 +125 @@
         'hiddengli' => "yes" },
       { 'name' => "listall",
-    'desc' => "{scripts.listall}",
+    'desc' => "{export.listall}",
     'type' => "flag",
     'reqd' => "no" },
@@ -156 +160 @@
     'range' => "1,",
     'modegli' => "1" },
+      { 'name' => "OIDtype",
+    'desc' => "{import.OIDtype}",
+    'type' => "enum",
+    'list' => $oidtype_list,
+    # parsearg left "" as default
+    #'deft' => "hash",
+    'reqd' => "no",
+    'modegli' => "3" },
+      { 'name' => "OIDmetadata",
+    'desc' => "{import.OIDmetadata}",
+    'type' => "metadata",
+    'deft' => "dc.Identifier",
+    'reqd' => "no",
+    'modegli' => "3" },
       { 'name' => "out",
     'desc' => "{export.out}",
@@ -231 +249 @@
     # params
     my ($language, $verbosity, $importdir, $exportdir, $keepold, $listall,
-    $removeold, $saveas, $saveas_version, $debug, 
+    $removeold, $saveas, $saveas_version, $debug, $OIDtype, $OIDmetadata,
     $maxdocs, $statsfile, $xsltfile, $mapping_file, $out, $faillog, $collectdir, $gli,$xslt_mets,$xslt_txt,$group_marc);
     my $xml = 0;
@@ -260 +278 @@
     my $gzip = undef; 
     my $groupsize = 1;
-    my $OIDtype = undef;
+    #my $OIDtype = undef;
     my $sortmeta = undef;
 
@@ -388 +406 @@
         }
         }
-        if (!defined $OIDtype || ($OIDtype !~ /^(hash|incremental)$/)) {
+        if (!defined $OIDtype || ($OIDtype !~ /^(hash|incremental|assigned|dirname)$/)) {
         if (defined $collectcfg->{'OIDtype'} && $collectcfg->{'OIDtype'} =~ /^(hash|incremental)$/) {
             $OIDtype = $collectcfg->{'OIDtype'};
@@ -441 +459 @@
         # read the export information file
         if (!$debug) {
-        # Export to DSpace Arhive format or METs format
+        # Export to DSpace Archive format or METs format
         # If saveas=DSpace, a "contents" file will be created, otherwise "export.inf"
         
@@ -470 +488 @@
             $plugout_name = $saveas;
         } 
-             
-          my $opts=[];
-
-              
-          push @$opts,("-output_info",$export_info) if (defined $export_info); 
+        
+        my $opts=[];
+        
+        
+        push @$opts,("-output_info",$export_info) if (defined $export_info); 
 
             push @$opts,("-verbosity",$verbosity) if (defined $verbosity);
@@ -492 +510 @@
         
         $processor->set_sortmeta ($sortmeta) if defined $sortmeta;
-        $processor->set_OIDtype ($OIDtype);
+        $processor->set_OIDtype ($OIDtype, $OIDmetadata);
     
         } else {