Changeset 35647 for main

Timestamp:

2021-10-20T12:46:45+13:00 (3 years ago)

Author:

davidb

Message:

Print statement tidyup

File:

• main/trunk/greenstone2/perllib/classify.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/classify.pm

@@ -345 +345 @@
 
     # get each of the classifications
+    print STDERR "\n"; # force line-break to separate infodb printed info from earlier phase of classifyinfo
     foreach my $classifier (@$classifiers)
     {
@@ -350 +351 @@
     if (defined $classifier_info) {
         $classifier_info->{'classifyOID'} = "CL$next_classify_num" unless defined($classifier_info->{'classifyOID'});
-        print STDERR "*** outputting information for classifier: $classifier_info->{'classifyOID'}\n";
+        print STDERR "Outputting information for classifier: $classifier_info->{'classifyOID'}\n";
 
         push(@{$classifyinfo->{'contains'}}, $classifier_info);