Changeset 29821 for main/trunk/greenstone2/perllib/classify.pm

Timestamp:

2015-04-02T13:22:05+13:00 (9 years ago)

Author:

kjdon

Message:

Detecting and handling the case where a 0 has been entered into hierarchy numbering in an hfile.

File:

• main/trunk/greenstone2/perllib/classify.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify.pm

@@ -353 +353 @@
     {
     my $classifier_info = $classifier->get_classify_info($gli);
-    $classifier_info->{'classifyOID'} = "CL$next_classify_num" unless defined($classifier_info->{'classifyOID'});
-        print STDERR "*** outputting information for classifier: $classifier_info->{'classifyOID'}\n";
-
-    push(@{$classifyinfo->{'contains'}}, $classifier_info);
+    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";
+
+        push(@{$classifyinfo->{'contains'}}, $classifier_info);
+    } else {
+        print STDERR "*** error with classifier CL$next_classify_num, not outputing it\n";
+    }
     $next_classify_num++;
+
     }