[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";