use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inner_header.html", $this->{param}) or die "no skel /headfoot/inner_header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("<div style=\"margin:20px\">\n\n");$this->out(Zen::PerlHandler->get("II86996cbff568d32e61aedebfb079508f->mnt")->do($this->{C}));$this->out("\n");if ( $C->{INPUT}{do_generate} ) {$this->out("\n		<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n			<tr>\n				<td class=atkHeader>Generate a sample Form/Button</td>\n			</tr>\n			<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=\"100\%\">\n				<tr><td class=atkEditorRight></td></tr>\n				<tr><td class=atkEditorControl style=\"text-align:left;padding-left:27px\">Source code</td></tr>\n				<tr>\n					<td class=atkEditorRight style=\"padding-left:27px\">\n						<textarea rows=\"25\" cols=\"80\">$C->{HTMLenc}</textarea>\n					</td>\n				</tr>\n			</table></td></tr>\n			<tr>\n				<td class=atkEditorControl>\n					<input type=button class=\"btn btn-primary\" value=\"Close window\" onClick=\"window.close()\">\n				</td>\n			</tr>\n		</table>\n\n");} else {$this->out("\n	<form name=\"Generator\" action=\"$C->{SYS}{URL}$C->{ENV}{PATH_INFO}\" method=POST enctype=\"multipart/form-data\">\n	<input type=\"hidden\" name=\"type\" value=\"$C->{INPUT}{type}\">\n	<input type=\"hidden\" name=\"funnel_id\" value=\"$C->{INPUT}{funnel_id}\">\n		<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n			<tr>\n				<td class=atkHeader>Generate a sample Form/Button</td>\n			</tr>\n			<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=\"100\%\">\n");if ( $C->{INPUT}{type} ne 'button' ) {$this->out("				<tr><td class=atkEditorRight></td></tr>\n				<tr><td class=atkEditorControl style=\"text-align:left;padding-left:27px\">Select theme</td></tr>\n				<tr>\n					<td class=atkEditorRight style=\"padding-left:27px\">\n						<select name=\"theme\">\n");my $in = $C->{Templates};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{t} = -1;for my $f (@$loop) {$C->{ITERATION}{t}++;$C->{t} = $f;$this->out("							<option value=\"$C->{t}{filename}\"> $C->{t}{title}\n");}$this->out("						</select>\n					</td>\n				</tr>\n");}$this->out("");if ( $C->{INPUT}{type} eq 'optpay' ) {$this->out("");{my $G = (ref $this)->get("/master/store/funnels/forms/generator_optpay.html", $this->{param}) or die "no skel /master/store/funnels/forms/generator_optpay.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");} elsif ( $C->{INPUT}{type} eq 'reg' ) {$this->out("");{my $G = (ref $this)->get("/master/store/funnels/forms/generator_reg.html", $this->{param}) or die "no skel /master/store/funnels/forms/generator_reg.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");} elsif ( $C->{INPUT}{type} eq 'login' ) {$this->out("");{my $G = (ref $this)->get("/master/store/funnels/forms/generator_login.html", $this->{param}) or die "no skel /master/store/funnels/forms/generator_login.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");} elsif ( $C->{INPUT}{type} eq 'remindpasswd' ) {$this->out("");{my $G = (ref $this)->get("/master/store/funnels/forms/generator_remindpasswd.html", $this->{param}) or die "no skel /master/store/funnels/forms/generator_remindpasswd.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");} elsif ( $C->{INPUT}{type} eq 'button' ) {$this->out("");{my $G = (ref $this)->get("/master/store/funnels/forms/generator_button.html", $this->{param}) or die "no skel /master/store/funnels/forms/generator_button.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}$this->out("					\n			</table></td></tr>\n			<tr>\n				<td class=atkEditorControl>\n					<input type=submit class=\"btn btn-primary\" name=\"do_generate\" value=\"Generate form\">\n					<input type=button class=\"btn btn-primary\" value=\"Close window\" onClick=\"window.close()\">\n				</td>\n			</tr>\n		</table>\n	</form>\n\n");}$this->out("\n</div>\n");{my $G = (ref $this)->get("/headfoot/inner_footer.html", $this->{param}) or die "no skel /headfoot/inner_footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}