use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");if ( $C->{intro} ) {$this->out("	<div style=\"padding-bottom: 15px; height:52px\">\n		$C->{intro}\n	</div>\n");}$this->out("\n");if ( $C->{Form}{errors} ) {$this->out("	<div style=\"color:red; font-size:120\%\">\n");my $in = $C->{Form}{errors};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{error} = -1;for my $f (@$loop) {$C->{ITERATION}{error}++;$C->{error} = $f;$this->out("		<br>* $C->{error}{message}\n");}$this->out("	</div><br>\n");}$this->out("\n<form method=\"POST\">\n<input type=\"hidden\" name=\"$C->{f_id}\" value=\"$C->{INPUT}{$C->{f_id}}\">\n\n<table cellspacing=\"5\">\n");$C->{SurveyData} = $C->{Form}{SurveyData};$this->out("");my $in = $C->{SurveyData};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{q} = -1;for my $f (@$loop) {$C->{ITERATION}{q}++;$C->{q} = $f;$this->out("	<tr><td align=\"left\">\n	<b>$C->{q}{question}{title}");if ( $C->{q}{question}{required} ) {$this->out("&nbsp;<font style=\"color:red\">*</font>");}$this->out("</b>\n	</td></tr>\n");if ( $C->{q}{question}{selector_data} ) {$this->out("		<tr><td align=\"left\" style=\"padding-left: 20px; padding-top: 8px\">$C->{q}{sel}</td></tr>\n");}$this->out("");if ( $C->{q}{question}{text_enabled} ) {$this->out("		<tr><td align=\"left\" style=\"padding-left: 20px; padding-top: 4px\">\n		$C->{q}{question}{text_caption}<br>\n		$C->{q}{text}\n		</td></tr>\n");}$this->out("	<tr><td>&nbsp;</td></tr>\n");}$this->out("</table>\n\n");if ( $C->{display_password} ) {$this->out("	<div style=\"padding-top: 10px; height:52px\">\n		Password: $C->{Form}{password}\n	</div>\n");}$this->out("");if ( $C->{display_captcha} ) {$this->out("	<div style=\"padding-top: 10px; height:52px\">\n		$C->{Form}{captcha}\n	</div>\n");}$this->out("<div style=\"padding-top: 10px; padding-left:10px\">\n	<input type=\"submit\" name=\"$C->{f_do}\" value=\"Submit\">\n</div>\n</form>\n");}