Changeset 15073 for gsdl/trunk/perllib/arcinfo.pm
- Timestamp:
- 2008-03-10T09:35:54+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/arcinfo.pm
r12328 r15073 52 52 my ($class) = @_; 53 53 my $self = {'info'=>{}, 54 'order'=>[]}; 54 'order'=>[], 55 'reverse_sort'=>0}; 55 56 56 57 return bless $self, $class; … … 158 159 } 159 160 161 sub reverse_sort 162 { 163 my $self = shift(@_); 164 $self->{'reverse_sort'} = 1; 165 } 160 166 161 167 # returns a list of the form [[OID, doc_file, index_status], ...] … … 166 172 my $order = $self->{'order'}; 167 173 168 my @sorted_order 169 = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order; 174 my @sorted_order; 175 if ($self->{'reverse_sort'}) { 176 @sorted_order = sort {$b->[ORDER_SORT_INDEX] cmp $a->[ORDER_SORT_INDEX]} @$order; 177 } else { 178 @sorted_order = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order; 179 } 170 180 171 181 my @list = (); … … 188 198 my $order = $self->{'order'}; 189 199 190 my @sorted_order 191 = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order; 200 my @sorted_order; 201 if ($self->{'reverse_sort'}) { 202 @sorted_order = sort {$b->[ORDER_SORT_INDEX] cmp $a->[ORDER_SORT_INDEX]} @$order; 203 } else { 204 @sorted_order = sort {$a->[ORDER_SORT_INDEX] cmp $b->[ORDER_SORT_INDEX]} @$order; 205 } 192 206 193 207 my @list = ();
Note:
See TracChangeset
for help on using the changeset viewer.