use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");if ( $C->{Form}{errors} ) {$this->out("	<div class=\"card mb-4 py-3 border-left-danger\"><div class=\"card-body\">\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("		 $C->{error}{message}\n");}$this->out("	</div></div>\n");}$this->out("\n<form name=Editor action=\"$C->{SYS}{URL}/master/plugins/promogen.html\" method=POST enctype=\"multipart/form-data\">\n<input type=\"hidden\" name=\"TabAct\">\n<input type=\"hidden\" name=\"cgi_ret\" value=\"$C->{SYS}{URI}/master/plugins/promogen.html?flush\">\n<input type=\"hidden\" name=\"ObjectID\" value=\"$C->{INPUT}{ObjectID}\">\n");my $in = $C->{KeepFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{kf} = -1;for my $f (@$loop) {$C->{ITERATION}{kf}++;$C->{kf} = $f;$this->out("<input type=\"hidden\" name=\"$C->{kf}\" value=\"$C->{INPUT}{$C->{kf}}\">\n");}$this->out("\n\n	<div class=\"card shadow mb-4\"> <div class=\"card-header py-3\"> <h6 class=\"m-0 font-weight-bold text-primary\">Adding $C->{PromoType}{title_action}</h6>\n</div>\n\n\n<div class=\"card-body\">\n	<div class=\"btn-group mb-4\">\n		<button type=\"button\" class=\"btn btn-primary\" onclick=\"atkGoActionEditor(\'save\')\">Save</button>\n		<button type=\"button\" class=\"btn btn-primary dropdown-toggle dropdown-toggle-split\" data-toggle=\"dropdown\" aria-haspopup=\"true\" aria-expanded=\"false\">\n			<span class=\"sr-only\">Toggle Dropdown</span>\n		</button>\n		<div class=\"dropdown-menu\">\n");{my $G = (ref $this)->get("$C->{TabActCfg}{template_controls}", $this->{param}) or die "no skel $C->{TabActCfg}{template_controls}";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("		</div>\n	</div>\n	\n	<div class=\"form-group row\"><label class=\"col-sm-12 col-md-4 col-form-label\">$C->{Form}{names}{template}</label>\n	<div class=\"col-sm-12 col-md-8\">$C->{Form}{template}</div></div>\n");my $in = $C->{PromoType}{tags};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{f} = -1;for my $f (@$loop) {$C->{ITERATION}{f}++;$C->{f} = $f;$this->out("");$C->{ctrl} = "$C->{Form}{$C->{f}}";$this->out("");if ( $C->{ctrl} ) {$this->out("	<div class=\"form-group row\"><label class=\"col-sm-12 col-md-4 col-form-label\">$C->{Form}{names}{$C->{f}}</label>\n	<div class=\"col-sm-12 col-md-8\">$C->{ctrl}</div></div>\n");}$this->out("");}$this->out("\n	<div class=\"btn-group mb-4\">\n		<button type=\"button\" class=\"btn btn-primary\" onclick=\"atkGoActionEditor(\'save\')\">Save</button>\n		<button type=\"button\" class=\"btn btn-primary dropdown-toggle dropdown-toggle-split\" data-toggle=\"dropdown\" aria-haspopup=\"true\" aria-expanded=\"false\">\n			<span class=\"sr-only\">Toggle Dropdown</span>\n		</button>\n		<div class=\"dropdown-menu\">\n");{my $G = (ref $this)->get("$C->{TabActCfg}{template_controls}", $this->{param}) or die "no skel $C->{TabActCfg}{template_controls}";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("		</div>\n	</div>\n\n\n</div></div>\n</form>\n");}