updating the proxy
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 2 Oct 2006 07:47:35 +0000 (07:47 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 2 Oct 2006 07:47:35 +0000 (07:47 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6343 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Reporter/Proxy.pm

index 8306fa5..07c3880 100644 (file)
@@ -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');