Changeset 7929 for trunk/gsdl/perllib/util.pm

Timestamp:

2004-08-10T16:37:58+12:00 (20 years ago)

Author:

davidb

Message:

doc.pm modified so filename stored under gsdlsourcefilename is local
to collection.

File:

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

trunk/gsdl/perllib/util.pm

@@ -531 +531 @@
 }
 
+sub get_dirsep {
+
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    return "\\";
+    } else {
+    return "\/";
+    }
+}
+
 sub get_os_dirsep {