Changeset 21218

Timestamp:

2009-12-02T14:48:02+13:00 (14 years ago)

Author:

kjdon

Message:

added get_toplevel_tmp_dir

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -597 +597 @@
 }
 
+sub get_toplevel_tmp_dir
+{
+    return filename_cat($ENV{'GSDLHOME'}, "tmp");
+}
+
+
 sub filename_to_regex {
     my $filename = shift (@_);