X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=cataloguing%2Fplugin_launcher.pl;h=f3ef3e863e115586473e990b6df361230dce2609;hb=2b8b5ae225af6119e41e2112f9a8573b4170b927;hp=a3b166b433656a46ce238ee02562c68d5652d86d;hpb=8ee881174fbb75e983e9ea09f70b2fcecee396ab;p=koha_fer

diff --git a/cataloguing/plugin_launcher.pl b/cataloguing/plugin_launcher.pl
index a3b166b433..f3ef3e863e 100755
--- a/cataloguing/plugin_launcher.pl
+++ b/cataloguing/plugin_launcher.pl
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -15,11 +14,12 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use CGI;
 use C4::Context;
 use C4::Output;
@@ -27,10 +27,11 @@ use C4::Output;
 my $input = new CGI;
 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
+# opening plugin. Just check whether we are on a developer 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;