Ignore:
Timestamp:
2007-12-20T16:16:12+13:00 (15 years ago)
Author:
dmn
Message:

essagedavidb gs3 building updates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r14365 r14926  
    2929use File::Basename;
    3030
     31use strict;
     32
    3133
    3234# removes files (but not directories)
     
    758760}
    759761
     762
     763
     764
     765# will return the collection name if successful, "" otherwise. 
     766# Like use_collection (above) but for greenstone 3 (taking account of site level)
     767
     768sub use_site_collection {
     769    my ($site, $collection, $collectdir) = @_;
     770
     771    if (!defined $collectdir || $collectdir eq "") {
     772    die "GSDL3HOME not set.\n" unless defined $ENV{'GSDL3HOME'};
     773    $collectdir = &filename_cat ($ENV{'GSDL3HOME'}, "sites", $site, "collect");
     774    }
     775
     776    # collectdir explicitly set by this point (using $site variable if required).
     777    # Can call "old" gsdl2 use_collection now.
     778
     779    return use_collection($collection,$collectdir);
     780}
     781
     782
     783
    760784sub hyperlink_text
    761785{
Note: See TracChangeset for help on using the changeset viewer.