tfheen

     foreach my $name (sort keys %classlevels) {	  my $selected = 0;	  my $s_key = '';	  if (defined $cgi->param("classlevels") and 	      $cgi->param("classlevels") eq $name) {	       $selected = 1;	       $s_key = "option/selected";	  }	  push(@classlevels, { 	       'option' => $name, 	       $s_key => $selected,	       'option/value' => $classlevels{$name}	  });     }