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

Timestamp:

2007-12-20T16:16:12+13:00 (16 years ago)

Author:

dmn

Message:

essagedavidb gs3 building updates

File:

• gsdl/trunk/perllib/util.pm (modified) (2 diffs)

gsdl/trunk/perllib/util.pm

@@ -29 +29 @@
 use File::Basename;
 
+use strict;
+
 
 # removes files (but not directories)
@@ -758 +760 @@
 }
 
+
+
+
+# will return the collection name if successful, "" otherwise.  
+# Like use_collection (above) but for greenstone 3 (taking account of site level)
+
+sub use_site_collection {
+    my ($site, $collection, $collectdir) = @_;
+
+    if (!defined $collectdir || $collectdir eq "") {
+    die "GSDL3HOME not set.\n" unless defined $ENV{'GSDL3HOME'};
+    $collectdir = &filename_cat ($ENV{'GSDL3HOME'}, "sites", $site, "collect");
+    }
+
+    # collectdir explicitly set by this point (using $site variable if required).
+    # Can call "old" gsdl2 use_collection now.
+
+    return use_collection($collection,$collectdir);
+}
+
+
+
 sub hyperlink_text
 {