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("\n");$this->out(Zen::PerlHandler->get("II645f526647f01a4c58516aeab3b362cd->mnt_post_link")->do($this->{C}));$this->out("\n<style type=\"text/css\">\n	body {\n	  padding:5px;\n	  background-color:$C->{Style}{bgcolor};\n	  color:$C->{Style}{font_color};\n	  font: normal 10pt Tahoma, sans-serif;\n\n	}\n</style>\n\n");if ( $C->{Complete} ) {$this->out("	<div style=\"color:blue\" align=\"center\">\n		Link has been added and is now waiting for the admin`s approval\n	</div><br>\n");}$this->out("\n");if ( $C->{ErrorInvalidMembership} || $C->{ErrorMaxLinkNumExceeded} ) {$this->out("	<div style=\"color:magenta\">\n");if ( $C->{ErrorInvalidMembership} ) {$this->out("			You need to have a membership to be able to add your link here. If you have it, please make sure that the email you entered in the form is exactly the same as you used for ordering the membership. If you don`t have the membership, you can order it using this link:<br><br><a target=\"_blank\" href=\"$C->{Linkdir}{sponsor_orderlink}\" style=\"color:magenta\">$C->{Linkdir}{sponsor_orderlink}</a>\n");} elsif ( $C->{ErrorMaxLinkNumExceeded} ) {$this->out("			You have already added $C->{Linkdir}{sponsor_numlinks} links. This is the maximum number of links one member is allowed to add.\n");}$this->out("	</div><br>\n");}$this->out("\n");if ( $C->{Form}{errors} ) {$this->out("	<div style=\"color: red\">\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 name=addform action=\"$C->{SYS}{URL}$C->{ENV}{PATH_INFO}\" method=POST enctype=\"multipart/form-data\">\n\n<input type=\"hidden\" name=\"linkdir_id\" value=\"$C->{Linkdir}{id}\">\n<input type=\"hidden\" name=\"uniq_id\" value=\"$C->{INPUT}{uniq_id}\">\n	\n<table class=\"Linkdir\" style=\"$C->{Style}{css_style}\" border=0>\n	<tr><td colspan=\"2\"><b>Add your link:<b></td></tr>\n	<tr><td>\n	<tr>\n		<td>Category</td>\n		<td>$C->{Form}{category}</td>\n	</tr>\n	<tr>\n		<td><b style=\"color: red\">*</b>Title</td>\n		<td>$C->{Form}{title}</td>\n	</tr>\n	<tr>\n		<td><b style=\"color: red\">*</b>URL</td>\n		<td>$C->{Form}{url}</td>\n	</tr>\n	<tr>\n		<td><b style=\"color: red\">*</b>Your e-mail<br>(will not be displayed)</td>\n		<td>$C->{Form}{email}</td>\n	</tr>\n	<tr><td colspan=\"2\">Description<br>$C->{Form}{descr}</td></tr>\n	<tr><td colspan=\"2\"><input type=\"submit\" name=\"submit\" value=\"Add Link\"></td></tr>\n</table>\n\n</form>\n\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("\n");}