Lines 30-35
use C4::Templates; # to get the template
Link Here
|
30 |
use C4::Languages; |
30 |
use C4::Languages; |
31 |
use C4::Branch; # GetBranches |
31 |
use C4::Branch; # GetBranches |
32 |
use C4::Search::History; |
32 |
use C4::Search::History; |
|
|
33 |
use Koha; |
33 |
use Koha::AuthUtils qw(hash_password); |
34 |
use Koha::AuthUtils qw(hash_password); |
34 |
use POSIX qw/strftime/; |
35 |
use POSIX qw/strftime/; |
35 |
use List::MoreUtils qw/ any /; |
36 |
use List::MoreUtils qw/ any /; |
Lines 662-668
sub _version_check {
Link Here
|
662 |
# there is no DB version, it's a fresh install, |
663 |
# there is no DB version, it's a fresh install, |
663 |
# go to web installer |
664 |
# go to web installer |
664 |
# there is a DB version, compare it to the code version |
665 |
# there is a DB version, compare it to the code version |
665 |
my $kohaversion = C4::Context::KOHAVERSION; |
666 |
my $kohaversion = Koha::version(); |
666 |
|
667 |
|
667 |
# remove the 3 last . to have a Perl number |
668 |
# remove the 3 last . to have a Perl number |
668 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
669 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
Lines 1311-1317
sub check_api_auth {
Link Here
|
1311 |
# database has not been installed yet |
1312 |
# database has not been installed yet |
1312 |
return ( "maintenance", undef, undef ); |
1313 |
return ( "maintenance", undef, undef ); |
1313 |
} |
1314 |
} |
1314 |
my $kohaversion = C4::Context::KOHAVERSION; |
1315 |
my $kohaversion = Koha::version(); |
1315 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1316 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1316 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1317 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1317 |
|
1318 |
|
Lines 1565-1571
sub check_cookie_auth {
Link Here
|
1565 |
# database has not been installed yet |
1566 |
# database has not been installed yet |
1566 |
return ( "maintenance", undef ); |
1567 |
return ( "maintenance", undef ); |
1567 |
} |
1568 |
} |
1568 |
my $kohaversion = C4::Context::KOHAVERSION; |
1569 |
my $kohaversion = Koha::version(); |
1569 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1570 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1570 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1571 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1571 |
|
1572 |
|