Changeset 706

Timestamp:

1999-10-17T17:00:11+13:00 (25 years ago)

Author:

sjboddie

Message:

fixed a kind of bug...

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -153 +153 @@
     if (!$first) {
         $title = $doc_obj->get_metadata_element ($section, "Title");
-        if (defined $title && $title !~ /^\d+$/) {
+        if (!defined $title || $title !~ /^\d+$/) {
         return ($thistype, $childtype);
         }