(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 a3b166b..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
 #
@@ -30,7 +29,8 @@ 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;