Changeset 31517 for main/trunk

Timestamp:

2017-03-14T19:48:14+13:00 (7 years ago)

Author:

ak19

Message:

I think this is a bugfix (copy and paste error), but will need to confirm with Dr Bainbridge. Committing it ahead of function merger with servercontrol::get_library_url equivalent.

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -1229 +1229 @@
     # if already set on a previous occasion, just return that
     # (Don't want to keep repeating this: cost of re-opening and scanning files.)
-    return $ENV{'GREENSTONE_URL_PREFIX'} if($ENV{'GREENSTONE_URL_PREFIX'});
+    return $ENV{'FULL_GREENSTONE_URL_PREFIX'} if($ENV{'FULL_GREENSTONE_URL_PREFIX'});
 
     my $gs_mode = ($ENV{'GSDL3SRCHOME'}) ? "gs3" : "gs2";