From 21592386507976e2a985819059bc481dcb89f72b Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 1 Jan 2015 20:49:05 -0500 Subject: [PATCH] [PASSED QA] Bug 13485 [QA Followup] Signed-off-by: Kyle M Hall --- installer/data/mysql/updatedatabase.pl | 2 +- opac/opac-proxypage.pl | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 93a3231..9297e23 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -9631,7 +9631,7 @@ if ( CheckVersion($DBversion) ) { $DBversion = "XXX"; if ( CheckVersion($DBversion) ) { $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ProxyPageLocalIPs','',NULL,'Beginning of IP addresses considered as local (comma separated ex: \"127.0.0,127.0.2\")','Free'), ('ProxyPageContent','',NULL,'HTML content of the proxy page','TextArea'), ('ProxyPageTitle','',NULL,'Title of the proxy page (breadcrumb and header)','Free')"); - print "Upgrade done (Proxy page)\n"; + print "Upgrade done (Bug 13485 - Add a proxy page)\n"; SetVersion ($DBversion); } diff --git a/opac/opac-proxypage.pl b/opac/opac-proxypage.pl index f2f175b..badd8d0 100755 --- a/opac/opac-proxypage.pl +++ b/opac/opac-proxypage.pl @@ -17,12 +17,11 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +use Modern::Perl; -use strict; use CGI; use C4::Auth; use C4::Output; -use warnings; my $localNetwork = C4::Context->preference('ProxyPageLocalIPs'); my $userIP = $ENV{'REMOTE_ADDR'}; @@ -51,4 +50,4 @@ $template->param( ProxyPageTitle => C4::Context->preference('ProxyPageTitle') ); -output_html_with_http_headers $query, $cookie, $template->output; \ No newline at end of file +output_html_with_http_headers $query, $cookie, $template->output; -- 1.7.2.5