Changeset 31187 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2016-12-09T21:21:29+13:00 (7 years ago)

Author:

ak19

Message:

Useful changes not specifically related to upcoming oaiinfo db related commit.

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -340 +340 @@
 
     return $tmp_dirname;
+}
+
+sub get_parent_folder
+{
+    my ($path) = @_;
+    my ($tailname, $dirname, $suffix)
+    = &File::Basename::fileparse($path, "\\.[^\\.]+\$");
+
+    return &FileUtils::sanitizePath($dirname);
 }