Lines 15-23
Link Here
|
15 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
15 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
16 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
16 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
17 |
|
17 |
|
18 |
|
|
|
19 |
use strict; |
18 |
use strict; |
20 |
use warnings; |
19 |
use warnings; |
|
|
20 |
|
21 |
# FIXME - Generates a warning from C4/Context.pm (uninitilized value). |
21 |
# FIXME - Generates a warning from C4/Context.pm (uninitilized value). |
22 |
|
22 |
|
23 |
use CGI; |
23 |
use CGI; |
Lines 36-39
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
36 |
} |
36 |
} |
37 |
); |
37 |
); |
38 |
|
38 |
|
39 |
output_html_with_http_headers $input, '', $template->output; |
39 |
my $koha_db_version = C4::Context->preference('Version'); |
|
|
40 |
my $kohaversion = C4::Context::KOHAVERSION; |
41 |
$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; |
42 |
|
43 |
#warn "db: $koha_db_version, koha: $kohaversion"; |
44 |
|
45 |
if ( $kohaversion > $koha_db_version or C4::Context->preference('OpacMaintenance') ) { |
46 |
output_html_with_http_headers $input, '', $template->output; |
47 |
} |
48 |
else { |
49 |
print $input->redirect("/cgi-bin/koha/opac-main.pl"); |
50 |
} |
40 |
- |
|
|