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