Changeset 16

Timestamp:

1998-11-17T22:56:36+13:00 (25 years ago)

Author:

rjmcnab

Message:

Altered to work with perllib/ (instead of the old directory name lib/)

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (1 diff)
• plugin.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuilder.pm

@@ -60 +60 @@
     # otherwise, use the mg buildproc
     my ($buildprocdir, $buildproctype);
-    if (-e "$ENV{'GSDLHOME'}/collect/$collection/lib/${collection}buildproc.pm") {
-    $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/lib";
+    if (-e "$ENV{'GSDLHOME'}/collect/$collection/perllib/${collection}buildproc.pm") {
+    $buildprocdir = "$ENV{'GSDLHOME'}/collect/$collection/perllib";
     $buildproctype = "${collection}buildproc";
     } else {
-    $buildprocdir = "$ENV{'GSDLHOME'}/lib";
+    $buildprocdir = "$ENV{'GSDLHOME'}/perllib";
     $buildproctype = "mgbuildproc";
     }

trunk/gsdl/perllib/plugin.pm

@@ -10 +10 @@
     foreach $plugin (@$plugin_list) {
     # find the plugin
-    if (-e "$ENV{'GSDLHOME'}/collect/$collection/lib/plugins/${plugin}.pm") {
-        require "$ENV{'GSDLHOME'}/collect/$collection/lib/plugins/${plugin}.pm";
+    if (-e "$ENV{'GSDLHOME'}/collect/$collection/perllib/plugins/${plugin}.pm") {
+        require "$ENV{'GSDLHOME'}/collect/$collection/perllib/plugins/${plugin}.pm";
 
-    } elsif (-e "$ENV{'GSDLHOME'}/lib/plugins/${plugin}.pm") {
-        require "$ENV{'GSDLHOME'}/lib/plugins/${plugin}.pm";
+    } elsif (-e "$ENV{'GSDLHOME'}/perllib/plugins/${plugin}.pm") {
+        require "$ENV{'GSDLHOME'}/perllib/plugins/${plugin}.pm";
 
     } else {