[open-ils-commits] r16244 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-04-15 16:09:01 -0400 (Thu, 15 Apr 2010)
New Revision: 16244

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
Teach SuperCat about locales - this becomes important when requesting copy status, etc


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-04-15 18:56:11 UTC (rev 16243)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-04-15 20:09:01 UTC (rev 16244)
@@ -323,6 +323,9 @@
 	my $skin = $cgi->param('skin') || 'default';
 	my $locale = $cgi->param('locale') || 'en-US';
 
+	# Enable localized results of copy status, etc
+	$supercat->session_locale($locale);
+
 	my $format = $cgi->param('format');
 	my $flesh_feed = parse_feed_type($format);
 	(my $base_format = $format) =~ s/(-full|-uris)$//o;
@@ -606,6 +609,9 @@
 
 	my $skin = $cgi->param('skin') || 'default';
 	my $locale = $cgi->param('locale') || 'en-US';
+
+	# Enable localized results of copy status, etc
+	$supercat->session_locale($locale);
 	
 	if ( $path =~ m{^/formats(?:/([^\/]+))?$}o ) {
 		print "Content-type: application/xml; charset=utf-8\n";
@@ -844,6 +850,9 @@
 	my $locale = $cgi->param('locale') || 'en-US';
 	my $org = $cgi->param('searchOrg');
 
+	# Enable localized results of copy status, etc
+	$supercat->session_locale($locale);
+
 	my $org_unit = get_ou($org);
 	my $scope = "l=" . $org_unit->[0]->id . "&";
 
@@ -926,6 +935,9 @@
 	my $locale = $cgi->param('locale') || 'en-US';
 	my $org = $cgi->param('searchOrg');
 
+	# Enable localized results of copy status, etc
+	$supercat->session_locale($locale);
+
 	my $org_unit = get_ou($org);
 	my $scope = "l=" . $org_unit->[0]->id . "&";