--- make_poll.pl	2003/10/11 12:07:54	1.11
+++ make_poll.pl	2003/10/21 15:15:08	1.13
@@ -604,11 +604,12 @@
 
 	my @dropdown_data;
 
+	my $default_value = x($attref->{default_value}) || 'null';
+	my $default_text = x($attref->{default_text}) || '-';
+
 	$$ncref = sub {
 		my ($xp, $text) = @_;
 
-	my $default_value = x($attref->{default_value}) || 'null';
-	my $default_text = x($attref->{default_text}) || '-';
 		if (defined $text) {
 			chomp $text;
 			$text=~s/^\s*//g;
@@ -620,7 +621,7 @@
 			my $id=1;
 			my $p=new_pit();
 			$body.="<select name=$p >\n";
-			$body.="<option value=\"$default_value\">$default_text<option>\n";
+			$body.="<option value=\"$default_value\">$default_text</option>\n";
 			foreach $opt (@dropdown_data) {
 				if (defined($opt) && $opt ne "") {
 					$body.="<option value=$id>$opt</option>\n";
@@ -762,6 +763,24 @@
 		}
 	}
 }
+
+sub html {
+	package main;
+
+	my ($xp, $el, $attref, $ncref) = @_;
+
+	$body.="<p>";
+
+	$$ncref = sub {
+		my ($xp, $text) = @_;
+
+		if (defined $text) {
+			$body.=x($text);
+		} else {
+			$body.="</p>";
+		}
+	}
+}
 
 print "\n\nTo create database for poll $poll use:\n\n";
 print "\$ psql template1 < $poll/$poll.sql\n\n";