Changeset 252 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-05-03T17:34:23+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed a small bug

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -160 +160 @@
         print $handle ";" unless $firstchild;
         $firstchild = 0;
-        print $handle "\".$child";
+        if ($child =~ /^.*?\.(\d+)$/) {
+            print $handle "\".$1";
+        } else {
+            print $handle "\".$child";
+        }
 #       if ($child eq "") { print $handle "$doc_OID"; }
 #       elsif ($section eq "") { print $handle "$doc_OID.$child"; }