[open-ils-commits] r10772 - trunk/Open-ILS/src/extras

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-10-06 22:24:20 -0400 (Mon, 06 Oct 2008)
New Revision: 10772

Modified:
   trunk/Open-ILS/src/extras/locale_html_options.pl
Log:
Print out a valid select form, eh

Modified: trunk/Open-ILS/src/extras/locale_html_options.pl
===================================================================
--- trunk/Open-ILS/src/extras/locale_html_options.pl	2008-10-07 02:20:50 UTC (rev 10771)
+++ trunk/Open-ILS/src/extras/locale_html_options.pl	2008-10-07 02:24:20 UTC (rev 10772)
@@ -27,10 +27,12 @@
 
 sub print_option {
 	my $locales = shift;
+	print FILE "<select name='locale'>\n";
 	foreach my $locale (@$locales) {
 		my $code = OpenILS::Application::AppUtils->entityize($locale->code);
 		my $name = OpenILS::Application::AppUtils->entityize($locale->name);
-		print FILE "<option value='$code'>$name</option>\n";
+		print FILE "  <option value='$code'>$name</option>\n";
 	}
+	print FILE "</select>\n";
 }