Changeset 10223 for trunk/gsdl

Timestamp:

2005-07-06T16:12:18+12:00 (19 years ago)

Author:

kjdon

Message:

removed debug statements that I had forgotten about

Location:

trunk/gsdl/perllib/classify

Files:

• BasClas.pm (modified) (1 diff)
• Collage.pm (modified) (1 diff)
• HFileHierarchy.pm (modified) (1 diff)
• List.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -219 +219 @@
     push(@$classifierslist, $class);
     my $classifier_name = (defined $classifierslist->[0]) ? $classifierslist->[0] : $class;
-    print STDERR "new $classifier_name\n";
+
     if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};

trunk/gsdl/perllib/classify/Collage.pm

@@ -117 +117 @@
     # Manually set $self parameters.
     $self->{'list'} = {};
-    print STDERR "buttonnmae = $buttonname\n";
     $self->{'buttonname'} = 'Collage' unless ($self->{'buttonname'});
 

trunk/gsdl/perllib/classify/HFileHierarchy.pm

@@ -107 +107 @@
     $self->{'meta_list'} = \@meta_list;
 
-    print STDERR "sort = $self->{'sort'}\n";
     # sort = undef in this case is the same as sort=nosort
     if ($self->{'sort'} eq "nosort") {

trunk/gsdl/perllib/classify/List.pm

@@ -72 +72 @@
     # Transfer value from Auto Parsing to the variable name that used in previous GreenStone.
     my (@meta_list,$meta1);
-    print STDERR "new List\n";
     if ($self->{"metadata"}) {
-    print STDERR "List: splitting metadata, ".$self->{"metadata"}."\n";
     @meta_list = split(/,/, $self->{"metadata"});
     $meta1 = $meta_list[0];
@@ -98 +96 @@
     # to get no sorting, set $self->{"sort"} = 'nosort'
     if (!$self->{"sort"}) {
-    print STDERR "no sorting\n";
     if (defined ($self->{"metadata"})) {
         $self->{"sort"} = undef;
-        print STDERR "setting no meta\n";
     } else {
         $self->{"sort"} = "nosort";