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

Timestamp:

1999-05-04T11:03:02+12:00 (25 years ago)

Author:

sjboddie

Message:

top level of document now saves archivedir in gdbm

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -150 +150 @@
         print $handle "<$field>$value\n";
         }
+    }
+
+    # output archivedir if at top level
+    if ($section eq $doc_obj->get_top_section()) {
+        my ($archivedir) = $filename =~ /^(.*?)(?:\/|\\)[^\/\\]*$/;
+        $archivedir = "" unless defined $archivedir;
+        $archivedir =~ s/^(\/|\\)*//;
+        $archivedir =~ s/(\/|\\)*$//;
+        print $handle "<archivedir>$archivedir\n";
     }