|
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 |
|