+sub print_division_selector {
+ my ($dbh, $divisions, $subdivisions, $division, $subdivision) = @_;
+
+ print <<"EOF";
+ <form method="get" action="/">
+EOF
+
+ my $max_division = $divisions->[(scalar @$divisions) - 1];
+
+ print <<"EOF";
+ <p>Divisjon:
+ <select name="divisjon" onchange="form.submit();">
+EOF
+
+ for my $d (@$divisions) {
+ if ($d == $division) {
+ print " <option value=\"$d\" selected=\"selected\">$d</option>\n";
+ } else {
+ print " <option value=\"$d\">$d</option>\n";
+ }
+ }
+
+ print <<"EOF";
+ </select>
+ Avdeling:
+ <select name="avdeling" onchange="form.submit();">
+EOF
+
+ for my $sd (@$subdivisions) {
+ if ($sd == $subdivision) {
+ print " <option value=\"$sd\" selected=\"selected\">$sd</option>\n";
+ } else {
+ print " <option value=\"$sd\">$sd</option>\n";
+ }
+ }
+
+ print <<"EOF";
+ </select>
+ <input type="submit" value="Vis" />
+ </p>
+ </form>
+EOF
+}
+