Print out a valid select form, eh
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 7 Oct 2008 02:24:20 +0000 (02:24 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 7 Oct 2008 02:24:20 +0000 (02:24 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10772 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/locale_html_options.pl

index 0c1405e..3675e23 100755 (executable)
@@ -27,10 +27,12 @@ close FILE;
 
 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";
 }