Changeset 251 for trunk

Timestamp:

1999-05-03T17:33:31+12:00 (25 years ago)

Author:

sjboddie

Message:

Made it sort the '0-9' section to the back rather than the front

File:

• trunk/gsdl/perllib/classify/AZClassify.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZClassify.pm

@@ -45 +45 @@
     # if this document doesn't contain the metadata element we're
     # sorting by we won't include it in this classification
+
     if (defined $metavalue) {
     if ($self->{'metaname'} eq 'Creator') {
@@ -111 +112 @@
     $classhash = $self->compactlist ($classhash);
 
+    my @tmparr = ();
+    foreach $subsection (sort keys (%$classhash)) {
+    push (@tmparr, $subsection);
+    }
+    
+    # if there's a 0-9 section it will have been sorted to the beginning
+    # but we want it at the end
+    if ($tmparr[0] eq '0-9') {
+    shift @tmparr;
+    push (@tmparr, '0-9');
+    }
+
     my $count = 1;
-    foreach $subsection (sort keys (%$classhash)) {
+    foreach $subsection (@tmparr) {
     push (@$rarr, [$subsection, $count, $classhash->{$subsection}]);
     $count ++;
     }
+
     return $rarr;
 }