use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{DSimpleMode} = "1";$this->out("");$C->{HTMLTitle} = "Settings";$this->out("\n\n<div class=\"dashboard\">\n	<h3>\n		Affiliate area of\n");if ( $C->{User}{name} ) {$this->out("$C->{User}{name}");} else {$this->out("$C->{User}{email}");}$this->out(" (ID $C->{User}{id}):\n		Settings\n	</h3>\n	<div class=\"link_section\">\n	<ul>\n");{my $G = (ref $this)->get("/ds/aff_menu.html", $this->{param}) or die "no skel /ds/aff_menu.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("	</ul>\n	</div>\n</div>\n\n\n<div id=\"main_section\">\n<center>\n\n");$C->{TableTitle} = "Settings";$this->out("");$C->{TableClass} = IIb39071a48a82a07eeb9256f406abebc5::IIllIIllIllIlIII($IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},521,$IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl});$this->out("\n");$C->{INPUT}{TabAct} ||= "edit";$this->out("");$C->{INPUT}{ObjectID} = "$C->{User}{ID}";$this->out("");$C->{INPUT}{cgi_ret} = "$C->{SYS}{URI}/ds/aff_setup.html?just_saved=1";$this->out("\n");if ( $C->{INPUT}{just_saved} ) {$this->out("<div style=\"color: blue; font-size: 120\%; margin-bottom: 20px\">Your data has been saved</div>\n");}$this->out("\n");if ( $C->{INPUT}{display_error} ) {$this->out("<div style=\"color: red; font-size: 120\%; margin-bottom: 20px\">$C->{INPUT}{display_error}</div>\n");}$this->out("\n");if ( $C->{INPUT}{display_message} ) {$this->out("<div style=\"color: blue; font-size: 120\%; margin-bottom: 20px\">$C->{INPUT}{display_message}</div>\n");}$this->out("\n");{my $G = (ref $this)->get("/zen/table.html", $this->{param}) or die "no skel /zen/table.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n</center>\n</div>\n\n");{my $G = (ref $this)->get("/ds/headfoot.html", $this->{param}) or die "no skel /ds/headfoot.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}