[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc Install.pm,1.76,1.77
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/misc Install.pm,1.76,1.77 |
Date: |
Thu, 15 Jul 2004 02:51:29 -0700 |
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";
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc Install.pm,1.76,1.77,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/css/en opac-main.tmpl,1.7,1.8 opac-suggestions.tmpl,1.1,1.2
- Next by Date:
[Koha-cvs] CVS: koha/updater updatedatabase,1.90,1.91
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/css/en opac-main.tmpl,1.7,1.8 opac-suggestions.tmpl,1.1,1.2
- Next by thread:
[Koha-cvs] CVS: koha/updater updatedatabase,1.90,1.91
- Index(es):