gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug #1462 correction. 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Frédéric DEMIANS 2007-10-06 00:23:44 -05:00 committed by Joshua Ferraro
parent b36ddc5feb
commit ed1539eef5
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
C4/Auth.pm Normal file → Executable file
View File

@ -375,6 +375,23 @@ sub checkauth {
my $timeout = C4::Context->preference('timeout');
$timeout = 600 unless $timeout;
# If Version syspref is unavailable, it means Koha is beeing installed,
# and so we must redirect to OPAC maintenance page or to the WebInstaller
warn "about to check version";
unless (C4::Context->preference('Version')) {
if ($type ne 'opac') {
warn "Install required, redirecting to Installer";
print $query->redirect("/cgi-bin/koha/installer/install.pl");
}
else {
warn "OPAC Install required, redirecting to maintenance";
print $query->redirect("/cgi-bin/koha/maintenance.pl");
}
exit;
}
# state variables
my $loggedin = 0;
my %info;
@ -645,17 +662,6 @@ sub checkauth {
# check that database and koha version are the same
# there is no DB version, it's a fresh install,
# go to web installer
warn "about to check version";
unless (C4::Context->preference('Version')){
if ($type ne 'opac'){
warn "Install required, redirecting to Installer";
print $query->redirect("/cgi-bin/koha/installer/install.pl");
} else {
warn "OPAC Install required, redirecting to maintenance";
print $query->redirect("/cgi-bin/koha/maintenance.pl");
}
exit;
}
# there is a DB version, compare it to the code version
my $kohaversion=C4::Context::KOHAVERSION;
# remove the 3 last . to have a Perl number