[Koha-cvs] koha/misc Install.pm [rel_2_2]

[paul poulain]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     paul poulain <tipaul>   06/07/25 12:39:14

Modified files:
        misc           : Install.pm 

Log message:
        checking for new mandatory Perl packages

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/Install.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.88.2.6&r2=1.88.2.7

Patches:
Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.88.2.6
retrieving revision 1.88.2.7
diff -u -b -r1.88.2.6 -r1.88.2.7
--- Install.pm  27 Feb 2006 16:31:37 -0000      1.88.2.6
+++ Install.pm  25 Jul 2006 12:39:14 -0000      1.88.2.7
@@ -859,6 +859,8 @@
        unless (eval {require Digest::MD5})      { push @missing,"Digest::MD5" 
};
        unless (eval {require MARC::Record})     { push @missing,"MARC::Record" 
};
        unless (eval {require Mail::Sendmail})   { push 
@missing,"Mail::Sendmail" };
+       unless (eval {require MARC::Charset})   { push @missing,"MARC::Charset" 
};
+       unless (eval {require MARC::File::XML})   { push 
@missing,"MARC::File::XML" };
 # The following modules are not mandatory, depends on how the library want to 
use Koha
        unless (eval {require PDF::API2})   { 
                        if ($#missing>=0) { # only when $#missing >= 0 so this 
isn't fatal
@@ -881,13 +883,13 @@
                        push @missing, "Net::Z3950";
                }
     }
-    unless (eval {require LWP::Simple)       {
+    unless (eval {require LWP::Simple})       {
                showmessage(getmessage('LWP::Simple'), 'PressEnter', '', 1);
                if ($#missing>=0) { # see above note
                        push @missing, "LWP::Simple";
                }
     }
-    unless (eval {require XML::Simple)       {
+    unless (eval {require XML::Simple})       {
                showmessage(getmessage('XML::Simple'), 'PressEnter', '', 1);
                if ($#missing>=0) { # see above note
                        push @missing, "XML::Simple";