[open-ils-commits] r18130 - in trunk/Open-ILS: src/perlmods/OpenILS/WWW xul/staff_client/server/patron (senator)

[svn at svn.open-ils.org]

Author: senator
Date: 2010-10-01 17:48:41 -0400 (Fri, 01 Oct 2010)
New Revision: 18130

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm
   trunk/Open-ILS/xul/staff_client/server/patron/holds.js
Log:
Fix an apparent bug in a case where OpenILS::WWW::Proxy means to send a
redirect, and also avoid the issue altogether in the new holds pull list
printing interface just added earlier today.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm	2010-10-01 20:18:38 UTC (rev 18129)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm	2010-10-01 21:48:41 UTC (rev 18130)
@@ -80,7 +80,7 @@
         my $base = $cgi->url(-base=>1);
 		$base =~ s/^http:/https:/o;
 		print "Location: $base".$apache->unparsed_uri."\n\n";
-		return Apache2::Const::OK;
+		return Apache2::Const::REDIRECT;
 	}
 
 	if (!$auth_ses) {

Modified: trunk/Open-ILS/xul/staff_client/server/patron/holds.js
===================================================================
--- trunk/Open-ILS/xul/staff_client/server/patron/holds.js	2010-10-01 20:18:38 UTC (rev 18129)
+++ trunk/Open-ILS/xul/staff_client/server/patron/holds.js	2010-10-01 21:48:41 UTC (rev 18130)
@@ -351,7 +351,7 @@
                                 });
 
                                 var loc = urls.XUL_BROWSER + "?url=" + window.escape(
-                                    xulG.url_prefix("/opac/extras/circ/alt_pull_list.html")
+                                    xulG.url_prefix("/opac/extras/circ/alt_pull_list.html").replace("http:","https:")
                                 );
                                 xulG.new_tab(
                                     loc, {