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