View | Details | Raw Unified | Return to bug 13485
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +1 lines)
Lines 9631-9637 if ( CheckVersion($DBversion) ) { Link Here
9631
$DBversion = "XXX";
9631
$DBversion = "XXX";
9632
if ( CheckVersion($DBversion) ) {
9632
if ( CheckVersion($DBversion) ) {
9633
    $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')");
9633
    $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')");
9634
    print "Upgrade done (Proxy page)\n";
9634
    print "Upgrade done (Bug 13485 - Add a proxy page)\n";
9635
    SetVersion ($DBversion);
9635
    SetVersion ($DBversion);
9636
}
9636
}
9637
9637
(-)a/opac/opac-proxypage.pl (-4 / +2 lines)
Lines 17-28 Link Here
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use Modern::Perl;
20
21
21
use strict;
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Output;
24
use C4::Output;
25
use warnings;
26
25
27
my $localNetwork  = C4::Context->preference('ProxyPageLocalIPs');
26
my $localNetwork  = C4::Context->preference('ProxyPageLocalIPs');
28
my $userIP = $ENV{'REMOTE_ADDR'};
27
my $userIP = $ENV{'REMOTE_ADDR'};
Lines 51-54 $template->param( Link Here
51
                    ProxyPageTitle => C4::Context->preference('ProxyPageTitle')
50
                    ProxyPageTitle => C4::Context->preference('ProxyPageTitle')
52
                );
51
                );
53
52
54
output_html_with_http_headers $query, $cookie, $template->output;
53
output_html_with_http_headers $query, $cookie, $template->output;
55
- 

Return to bug 13485