Changeset 9963

Timestamp:

2005-05-25T17:36:11+12:00 (19 years ago)

Author:

davidb

Message:

values stored for $places_filename adjusted to be free of hard-wiring in
GSDLHOME.

File:

• trunk/gsdl/perllib/plugins/GISBasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/GISBasPlug.pm

@@ -277 +277 @@
     }
     #allows user to view map with all places from the document on it
-    my $places_filename = &util::filename_cat($GSDLHOME, "collect", "_cgiargc_", "index", "assoc", "_thisOID_", "places.txt");
+####    my $places_filename = &util::filename_cat($GSDLHOME, "collect", "_cgiargc_", "index", "assoc", "_thisOID_", "places.txt");
+    my $places_filename = &util::filename_cat("collect", "_cgiargc_", "index", "assoc", "_thisOID_", "places.txt");
     my $docmap = "<a href='javascript:popUp(\"$CNTRY\",\"$places_filename\")'>View map for this document<\/a><br><br>\n";
     $$textref = $docmap . $names . "<br>" . $$textref;