Changeset 222

Timestamp:

1999-04-01T12:35:54+12:00 (25 years ago)

Author:

sjboddie

Message:

Unfixed the 'bug'.

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -153 +153 @@
 
     # output a list of children
-    my $children = $doc_obj->get_children ();
+    my $children = $doc_obj->get_children ($section);
     if (scalar(@$children) > 0) {
         print $handle "<contains>";
@@ -160 +160 @@
         print $handle ";" unless $firstchild;
         $firstchild = 0;
-        if ($child eq "") { print $handle "$doc_OID"; }
-        else { print $handle "$doc_OID.$child"; }
+        print $handle "\".$child";
+#       if ($child eq "") { print $handle "$doc_OID"; }
+#       elsif ($section eq "") { print $handle "$doc_OID.$child"; }
+#       else { print $handle "$doc_OID.$section.$child"; }
         }
         print $handle "\n";