[Koha-cvs] CVS: koha/misc Install.pm,1.26,1.27

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv23100/misc

Modified Files:
        Install.pm 
Log Message:
removing MARC::Charset test

Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** Install.pm  26 Jan 2003 23:34:48 -0000      1.26
--- Install.pm  28 Jan 2003 15:31:22 -0000      1.27
***************
*** 134,150 ****
  |;
  
- $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|
  
--- 134,137 ----
***************
*** 647,656 ****
      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);
--- 634,637 ----