From 3da4ebd7fdfe47ade57d5887d73a99720fca1350 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 2 Oct 2006 07:47:35 +0000 Subject: [PATCH] updating the proxy git-svn-id: svn://svn.open-ils.org/ILS/trunk@6343 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm b/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm index 8306fa5672..07c38801c0 100644 --- a/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm +++ b/Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm @@ -33,6 +33,8 @@ sub handler { my $auth_ses = $cgi->cookie('ses'); my $ws_ou = $cgi->cookie('ws_ou') || 1; + my $url = $cgi->url; + # push everyone to the secure site if ($url =~ /^http:/o) { $url =~ s/^http:/https:/o; @@ -44,8 +46,6 @@ sub handler { my $u = $cgi->param('user'); my $p = $cgi->param('passwd'); - my $url = $cgi->url; - if (!$u) { print $cgi->header(-type=>'text/html', -expires=>'-1d'); -- 2.11.0