--- make_poll.pl	2003/10/11 15:47:33	1.12
+++ make_poll.pl	2003/10/21 15:15:08	1.13
@@ -764,6 +764,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";
 print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n";