Changeset 15073 for gsdl/trunk/perllib/arcinfo.pm

Timestamp:

2008-03-10T09:35:54+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/perllib/arcinfo.pm (modified) (4 diffs)

gsdl/trunk/perllib/arcinfo.pm

@@ -52 +52 @@
     my ($class) = @_;
     my $self = {'info'=>{},
-        'order'=>[]};
+        'order'=>[],
+        'reverse_sort'=>0};
 
     return bless $self, $class;
@@ -158 +159 @@
 }
 
+sub reverse_sort 
+{
+    my $self = shift(@_);
+    $self->{'reverse_sort'} = 1;
+}
 
 # returns a list of the form [[OID, doc_file, index_status], ...]
@@ -166 +172 @@
     my $order = $self->{'order'};
 
-    my @sorted_order 
-    = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order;
+    my @sorted_order;
+    if ($self->{'reverse_sort'}) {
+    @sorted_order = sort {$b->[ORDER_SORT_INDEX] cmp $a->[ORDER_SORT_INDEX]} @$order;
+    } else {
+    @sorted_order = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order;
+    }
 
     my @list = ();
@@ -188 +198 @@
     my $order = $self->{'order'};
 
-    my @sorted_order 
-    = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order;
+    my @sorted_order;
+    if ($self->{'reverse_sort'}) {
+    @sorted_order = sort {$b->[ORDER_SORT_INDEX] cmp $a->[ORDER_SORT_INDEX]} @$order;
+    } else {
+    @sorted_order = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order;
+    }
 
     my @list = ();