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 660-666
sub _version_check {
Link Here
|
660 |
# there is no DB version, it's a fresh install, |
661 |
# there is no DB version, it's a fresh install, |
661 |
# go to web installer |
662 |
# go to web installer |
662 |
# there is a DB version, compare it to the code version |
663 |
# there is a DB version, compare it to the code version |
663 |
my $kohaversion = C4::Context::KOHAVERSION; |
664 |
my $kohaversion = Koha::version(); |
664 |
|
665 |
|
665 |
# remove the 3 last . to have a Perl number |
666 |
# remove the 3 last . to have a Perl number |
666 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
667 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
Lines 1309-1315
sub check_api_auth {
Link Here
|
1309 |
# database has not been installed yet |
1310 |
# database has not been installed yet |
1310 |
return ( "maintenance", undef, undef ); |
1311 |
return ( "maintenance", undef, undef ); |
1311 |
} |
1312 |
} |
1312 |
my $kohaversion = C4::Context::KOHAVERSION; |
1313 |
my $kohaversion = Koha::version(); |
1313 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1314 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1314 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1315 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1315 |
|
1316 |
|
Lines 1563-1569
sub check_cookie_auth {
Link Here
|
1563 |
# database has not been installed yet |
1564 |
# database has not been installed yet |
1564 |
return ( "maintenance", undef ); |
1565 |
return ( "maintenance", undef ); |
1565 |
} |
1566 |
} |
1566 |
my $kohaversion = C4::Context::KOHAVERSION; |
1567 |
my $kohaversion = Koha::version(); |
1567 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1568 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1568 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1569 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1569 |
|
1570 |
|