Changeset 244 for trunk/gsdl/perllib/classify

Timestamp:

1999-04-23T11:11:34+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed a couple of bugs

File:

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

trunk/gsdl/perllib/classify/AZClassify.pm

@@ -69 +69 @@
     my @contents = ();
     map { push (@contents, "\".$_->[1]"); } @$subclasses;
-
     # write out top level entry
     $self->output_entry ($handle, $self->{'OID'}, $self->{'metaname'}, \@contents, "List");
@@ -104 +103 @@
     if ($title =~ /^[0-9]$/) {$title = '0-9';}
     elsif ($title !~ /^[A-Z]$/) {
-        print STDERR "AZClassify: WARNING $classification has badly formatted title ($title)\n";}
+        print STDERR "AZClassify: WARNING $classification has badly formatted title ($title)\n";
+    }
     $classhash->{$title} = [] unless defined $classhash->{$title};
     push (@{$classhash->{$title}}, $classification);
@@ -113 +113 @@
     my $count = 1;
     foreach $subsection (sort keys (%$classhash)) {
-    push (@$arr, [$subsection, $count, $classhash->{$subsection}]);
+    push (@$rarr, [$subsection, $count, $classhash->{$subsection}]);
     $count ++;
     }
-    return $arr;
+    return $rarr;
 }
 
@@ -137 +137 @@
 
     foreach $subsection (sort keys %$classhashref) {
-    next if $subsection eq '0-9';
+    if ($subsection eq '0-9') {
+        @{$compactedhash->{$subsection}} = @{$classhashref->{$subsection}};
+        next;
+    }
     $currentfirstletter = $subsection if $currentfirstletter eq "";
     if ((scalar (@currentOIDs) < $min) ||
@@ -228 +231 @@
     $$stringref =~ s/^\s+//;
 }
-    
 
 1;