Changeset 15073
- Timestamp:
- 2008-03-10T09:35:54+13:00 (16 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 2 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 = (); -
gsdl/trunk/perllib/strings.properties
r15019 r15073 269 269 import.removing_tmpdir:Removing contents of the collection "tmp" directory... 270 270 271 import.reversesort:Sort in reverse order. Used with the -sortmeta option. 272 271 273 import.sortmeta:Sort documents alphabetically by metadata for building. Search results for boolean queries will be displayed in this order. This will be disabled if groupsize > 1. May be a commma separated list to sort by more than one metadata value. 272 274
Note:
See TracChangeset
for help on using the changeset viewer.