(bug #3726) fix ISBD url translation

[koha.git] / cataloguing / plugin_launcher.pl

diff --git a/cataloguing/plugin_launcher.pl b/cataloguing/plugin_launcher.pl
index eb083b5..a05a6cc 100755 (executable)
--- a/cataloguing/plugin_launcher.pl
+++ b/cataloguing/plugin_launcher.pl
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -22,17 +21,16 @@
 use strict;
 use CGI;
 use C4::Context;
-
 use C4::Output;
 
 my $input = new CGI;
-my $plugin_name=$input->param("plugin_name");
 my $plugin_name="cataloguing/value_builder/".$input->param("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/cataloguing/value_builder")) {
+my $vbdir = "$cgidir/cataloguing/value_builder";
+unless (-r $vbdir and -d $vbdir) {
        $cgidir = C4::Context->intranetdir;
 }
 do $cgidir."/".$plugin_name;