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