Changeset 15072

Timestamp:

2008-03-10T09:31:58+13:00 (16 years ago)

Author:

kjdon

Message:

added -reversesort option to import.pl. Used with -sortmeta option, to sort in reverse order

File:

• gsdl/trunk/bin/script/import.pl (modified) (4 diffs)

gsdl/trunk/bin/script/import.pl

@@ -209 +209 @@
     'desc' => "{import.sortmeta}",
     'type' => "metadata",
-#   'type' => "string",
+    'reqd' => "no",
+    'modegli' => "3" },
+      { 'name' => "reversesort",
+    'desc' => "{import.reversesort}",
+    'type' => "flag",
     'reqd' => "no",
     'modegli' => "3" },
@@ -278 +282 @@
     $archivedir, 
     $gzip, $groupsize, 
-    $sortmeta, $removeprefix, $removesuffix, 
+    $sortmeta, $reversesort, $removeprefix, $removesuffix, 
     );
 
@@ -459 +463 @@
     $sortmeta = undef;
     }
-
+    
+    if (defined $sortmeta) {
+    if (defined $collectcfg->{'reversesort'} && $collectcfg->{'reversesort'} =~ /^true$/i) {
+        $reversesort = 1;
+    }
+    } else {
+    # reversesort only valid with sortmeta
+    $reversesort = 0;
+    }
     if (defined $collectcfg->{'removeprefix'} && $removeprefix eq "") {
     $removeprefix = $collectcfg->{'removeprefix'};
@@ -539 +551 @@
     $archive_info = new arcinfo ();
     $archive_info->load_info ($archive_info_filename);
-    
+    if ($reversesort) {
+    $archive_info->reverse_sort();
+    }
 
     ####Use Plugout####