From 0af7ebbdc813063fcd4324127553eb484453ec4a Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 27 Nov 2002 17:49:40 +0000
Subject: [PATCH] =?utf8?q?bugzilla=20bug=20n=B0129=20fixed?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 misc/installer.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/misc/installer.pl b/misc/installer.pl
index d9850e64fb..7491364789 100644
--- a/misc/installer.pl
+++ b/misc/installer.pl
@@ -147,6 +147,8 @@ my @missing = ();
 unless (eval {require DBI})               { push @missing,"DBI" };
 unless (eval {require Date::Manip})       { push @missing,"Date::Manip" };
 unless (eval {require DBD::mysql})        { push @missing,"DBD::mysql" };
+unless (eval {require MARC::Record}) { push @missing, "MARC::Record"};
+
 unless (eval {require Net::Z3950})        {
     print qq|
 
@@ -941,7 +943,7 @@ Please choose which parameter you want to install. Note if you choose 3, nothing
 	chomp $answer;
 }
 if ($answer eq "1") {
-system("cat misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser -p$mysqlpass $dbname");
+system("cat script/misc/marc_datas/marc21_en/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser -p$mysqlpass $dbname");
 }
 if ($answer eq "2") {
 system("cat scripts/misc/marc_datas/unimarc_fr/structure_def.sql | $mysqldir/bin/mysql -u$mysqluser -p$mysqlpass $dbname");
-- 
2.39.2