X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fmaintenance.pl;h=d106098edbba7d0153f328096b4c9dc6fa074a31;hb=5d6c092921919526ade501facb1220f8a108a08f;hp=2f1d264257b6f101e56a977209ee9cb824efbe69;hpb=830dfcf69a394aef50d2f73ad933e56b06ec3271;p=koha_fer diff --git a/opac/maintenance.pl b/opac/maintenance.pl index 2f1d264257..d106098edb 100755 --- a/opac/maintenance.pl +++ b/opac/maintenance.pl @@ -11,14 +11,15 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -# $Id$ +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; -require Exporter; +use warnings; + +# FIXME - Generates a warning from C4/Context.pm (uninitilized value). + use CGI; use C4::Auth; use C4::Output; @@ -35,4 +36,15 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -output_html_with_http_headers $input, '', $template->output; +my $koha_db_version = C4::Context->preference('Version'); +my $kohaversion = C4::Context::KOHAVERSION; +$kohaversion =~ s/(.*\..*)\.(.*)\.(.*)/$1$2$3/; + +#warn "db: $koha_db_version, koha: $kohaversion"; + +if ( $kohaversion > $koha_db_version or C4::Context->preference('OpacMaintenance') ) { + output_html_with_http_headers $input, '', $template->output; +} +else { + print $input->redirect("/cgi-bin/koha/opac-main.pl"); +}