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}/ds/aff_setup.html\" method=POST enctype=\"multipart/form-data\">\n<input type=\"hidden\" name=\"TabAct\">\n<input type=\"hidden\" name=\"cgi_ret\" value=\"$C->{INPUT}{cgi_ret}\">\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");if ( $C->{INPUT}{TabCustom1} eq 'adaptpay' ) {$this->out("");{my $G = (ref $this)->get("/auth/profile/dsimple/editor_adaptpay.html", $this->{param}) or die "no skel /auth/profile/dsimple/editor_adaptpay.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");} else {$this->out("");{my $G = (ref $this)->get("/auth/profile/dsimple/editor_full.html", $this->{param}) or die "no skel /auth/profile/dsimple/editor_full.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}$this->out("\n</form>\n");}