Changeset 35452

Timestamp:

2021-09-22T17:43:39+12:00 (3 years ago)

Author:

anupama

Message:

Committing newly added subroutine get_first_existing_dir(list_of_dirs) that is now used in OpenOfficeConverter.pm whose modifications are to be committed next

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -1860 +1860 @@
 }
 
+# Returns the first directory in parameter list of directories that exists, undef if none existed
+sub get_first_existing_dir {
+    my @directories = @_;
+    
+    foreach my $directory (@directories) {
+        if(&FileUtils::directoryExists($directory)) {
+            return $directory;
+        }
+    }   
+    return undef;
+}
+
+
 # Sets the gnomelib_env. Based on the logic in wvware.pl which can perhaps be replaced with a call to this function in future
 sub set_gnomelib_env