Changeset 21218

Show
Ignore:
Timestamp:
02.12.2009 14:48:02 (10 years ago)
Author:
kjdon
Message:

added get_toplevel_tmp_dir

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r21207 r21218  
    597597} 
    598598 
     599sub get_toplevel_tmp_dir 
     600{ 
     601    return filename_cat($ENV{'GSDLHOME'}, "tmp"); 
     602} 
     603 
     604 
    599605sub filename_to_regex { 
    600606    my $filename = shift (@_);