--- lib/PXElator/html.pm	2009/07/30 23:57:19	72
+++ lib/PXElator/html.pm	2009/08/05 23:22:17	153
@@ -27,6 +27,17 @@
 	qq|<tt>| . join(' ', @_) . qq|</tt>|;
 }
 
+sub select {
+	my $name = shift;
+	my $checked_option = shift;
+	return join("\n"	
+		, qq|<select type=select name=$name>|
+		, join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ )
+		, qq|</select>|
+		, qq|</form>|
+	);
+}
+
 warn "loaded";
 
 1;