From d2117744375c53e38ca074b8b99005cee8ca5b91 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 28 Jan 2003 15:31:22 +0000
Subject: [PATCH] removing MARC::Charset test

---
 misc/Install.pm | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index d824e0f8e6..04c47c4b4d 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -133,19 +133,6 @@ web site (http://www.koha.org/).
 
 |;
 
-$messages->{'MARCCharsetMissing'}->{en}=qq|
-
-The MARC::Charset module is missing.  This module is necessary if you want to
-be able to upload MARC records from Simple Acquisitions.
-
-To install this module, you will need to either have Perl 5.8.0, or have Perl
-5.6.1 and are willing to manually patch the MARC::Charset module. If you have
-Perl 5.8.0, the module can be installed with
-
-perl -MCPAN -e 'install MARC::Charset'
-
-Press the <ENTER> key to continue: |;
-
 $messages->{'NETZ3950Missing'}->{en}=qq|
 
 The Net::Z3950 module is missing.  This module is necessary if you want to use
@@ -646,12 +633,6 @@ sub checkperlmodules {
     unless (eval {require Set::Scalar})      { push @missing,"Set::Scalar" };
     unless (eval {require Digest::MD5})      { push @missing,"Digest::MD5" };
     unless (eval {require MARC::Record})     { push @missing,"MARC::Record" };
-    unless (eval {require MARC::Charset})    {
-	showmessage(getmessage('MARCCharsetMissing'), 'PressEnter', '', 1);
-	if ($#missing>=0) { # XXX why only when $#missing >= 0?
-	    push @missing, "MARC::Charset";
-	}
-    }
     unless (eval {require Net::Z3950})       {
 	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
 	if ($#missing>=0) { # XXX why only when $#missing >= 0?
-- 
2.39.5