Committing some improvements to Amazon.pm

[koha-ffzg.git] / plugin_launcher.pl

diff --git a/plugin_launcher.pl b/plugin_launcher.pl
index 4d4c510..1cbcd3f 100755 (executable)
--- a/plugin_launcher.pl
+++ b/plugin_launcher.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# written 10/5/2002 by Paul
+# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -27,6 +27,14 @@ use C4::Search;
 use C4::Output;
 
 my $input = new CGI;
+my $plugin_name=$input->param("plugin_name");
 my $plugin_name="value_builder/".$input->param("plugin_name");
-require $plugin_name;
+
+# opening plugin. Just check wether we are on a developper computer on a production one
+# (the cgidir differs)
+my $cgidir = C4::Context->intranetdir ."/cgi-bin";
+unless (opendir(DIR, "$cgidir/value_builder")) {
+       $cgidir = C4::Context->intranetdir;
+} 
+require $cgidir."/".$plugin_name;
 &plugin($input);