[Koha-cvs] CVS: koha/misc Install.pm,1.76,1.77

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31023/misc

Modified Files:
	Install.pm 
Log Message:
indentations modifs



Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -r1.76 -r1.77
*** Install.pm	29 Jun 2004 08:34:05 -0000	1.76
--- Install.pm	15 Jul 2004 09:51:26 -0000	1.77
***************
*** 846,875 ****
  #
  	my ($auto_install) = @_;
!     my $message = getmessage('CheckingPerlModules');
!     showmessage($message, 'none');
  
!     unless ($] >= 5.006001) {			# Bug 179
! 	die getmessage('PerlVersionFailure', ['5.6.1']);
!     }
  	startsysout();
  
!     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 HTML::Template})   { push @missing,"HTML::Template" };
  #    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 Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
!     unless (eval {require Event})       {
  		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
! 		    push @missing, "Event";
! 		}
      }
      unless (eval {require Net::Z3950})       {
! 	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
  		if ($#missing>=0) { # see above note
! 		    push @missing, "Net::Z3950";
  		}
      }
--- 846,876 ----
  #
  	my ($auto_install) = @_;
! 	my $message = getmessage('CheckingPerlModules');
! 	showmessage($message, 'none');
  
! 	unless ($] >= 5.006001) {			# Bug 179
! 		die getmessage('PerlVersionFailure', ['5.6.1']);
! 	}
  	startsysout();
  
! 	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 HTML::Template})   { push @missing,"HTML::Template" };
  #    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 Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
! 	unless (eval {require Net::LDAP})   { push @missing,"Net::LDAP" };
! 	unless (eval {require Event})       {
  		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
! 				push @missing, "Event";
! 			}
      }
      unless (eval {require Net::Z3950})       {
! 		showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
  		if ($#missing>=0) { # see above note
! 			push @missing, "Net::Z3950";
  		}
      }