From bb038e19d92b84aeb238110e5785dbab0b46fb93 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Tue, 20 Jan 2009 22:41:32 +0100
Subject: [PATCH] Updating updatedatabse in order to work in any installs

---
 installer/data/mysql/updatedatabase.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index a38cad46d0..5e834c59b6 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -1962,9 +1962,10 @@ END_SQL
 }
 if (C4::Context->preference("Version") =~/3\.00/) {
 	warn "inside 3.00";
-	my $return=do qq($ENV{'PERL5LIB'}/installer/data/mysql/updatedatabase30.pl);
+        my $perllibdir=C4::Context->config('intranetdir');
+	my $return=do qq($perllibdir/installer/data/mysql/updatedatabase30.pl);
 	unless ($return){
-		print STDERR "cannot read file $ENV{'PERL5LIB'}/installer/data/mysql/updatedatabase30.pl : $! \n" if ($!);
+		print STDERR "cannot read file $perllibdir/installer/data/mysql/updatedatabase30.pl : $! \n" if ($!);
 		print STDERR "cannot read file $ENV{'PERL5LIB'}/installer/data/mysql/updatedatabase30.pl : $@ \n" if ($@);
 	}
 }
-- 
2.39.5