Changeset 254 for trunk/gsdl/perllib/classify/Hierarchy.pm

Timestamp:

1999-05-04T10:59:36+12:00 (25 years ago)

Author:

sjboddie

Message:

Forgot to remove debug stuff before committing last time

File:

• trunk/gsdl/perllib/classify/Hierarchy.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/Hierarchy.pm

@@ -42 +42 @@
     foreach $descriptor (keys (%$list)) {
     $self->{'descriptorlist'}->{$descriptor} = $list->{$descriptor}->[0];
-    print STDERR "descriptor: $descriptor\n";
     unless (defined $self->{'locatorlist'}->{$list->{$descriptor}->[0]}) {
         $self->{'locatorlist'}->{$list->{$descriptor}->[0]}->{'title'} = $list->{$descriptor}->[1];