Lines 31-36
use C4::Languages;
Link Here
|
31 |
use C4::Branch; # GetBranches |
31 |
use C4::Branch; # GetBranches |
32 |
use C4::Search::History; |
32 |
use C4::Search::History; |
33 |
use C4::VirtualShelves; |
33 |
use C4::VirtualShelves; |
|
|
34 |
use Koha; |
34 |
use Koha::AuthUtils qw(hash_password); |
35 |
use Koha::AuthUtils qw(hash_password); |
35 |
use POSIX qw/strftime/; |
36 |
use POSIX qw/strftime/; |
36 |
use List::MoreUtils qw/ any /; |
37 |
use List::MoreUtils qw/ any /; |
Lines 656-662
sub _version_check {
Link Here
|
656 |
# there is no DB version, it's a fresh install, |
657 |
# there is no DB version, it's a fresh install, |
657 |
# go to web installer |
658 |
# go to web installer |
658 |
# there is a DB version, compare it to the code version |
659 |
# there is a DB version, compare it to the code version |
659 |
my $kohaversion = C4::Context::KOHAVERSION; |
660 |
my $kohaversion = Koha::version(); |
660 |
|
661 |
|
661 |
# remove the 3 last . to have a Perl number |
662 |
# remove the 3 last . to have a Perl number |
662 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
663 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
Lines 1304-1310
sub check_api_auth {
Link Here
|
1304 |
# database has not been installed yet |
1305 |
# database has not been installed yet |
1305 |
return ( "maintenance", undef, undef ); |
1306 |
return ( "maintenance", undef, undef ); |
1306 |
} |
1307 |
} |
1307 |
my $kohaversion = C4::Context::KOHAVERSION; |
1308 |
my $kohaversion = Koha::version(); |
1308 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1309 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1309 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1310 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1310 |
|
1311 |
|
Lines 1558-1564
sub check_cookie_auth {
Link Here
|
1558 |
# database has not been installed yet |
1559 |
# database has not been installed yet |
1559 |
return ( "maintenance", undef ); |
1560 |
return ( "maintenance", undef ); |
1560 |
} |
1561 |
} |
1561 |
my $kohaversion = C4::Context::KOHAVERSION; |
1562 |
my $kohaversion = Koha::version(); |
1562 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1563 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
1563 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1564 |
if ( C4::Context->preference('Version') < $kohaversion ) { |
1564 |
|
1565 |
|