use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("II87558c806104b9db96c7d2251d8bb6f0->mnt_list")->do($this->{C}));$this->out("\n");if ( $C->{FrontendMode} eq 'list' && $C->{total} ) {$this->out("\n");my $in = $C->{List};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{Testimonial} = -1;for my $f (@$loop) {$C->{ITERATION}{Testimonial}++;$C->{Testimonial} = $f;$this->out("");{my $G = (ref $this)->get("/master/plugins/testimonials/frontend_item.html", $this->{param}) or die "no skel /master/plugins/testimonials/frontend_item.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("<br><hr size=1>\n");}$this->out("\n<br>\n\n");if ( $C->{total} > $C->{Page}{ipp} ) {$this->out("$C->{total} Testimonials<br>\n\n\n\n\n\n");$C->{cur_page} = $C->{INPUT}{page} || 1;$this->out("\n");my $in = [1..$C->{pages}];my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{p} = -1;for my $f (@$loop) {$C->{ITERATION}{p}++;$C->{p} = $f;$this->out("");$C->{from} = ($C->{p} - 1) * $C->{Page}{ipp} + 1;$this->out("");$C->{to} = $C->{p} * $C->{Page}{ipp} <= $C->{total} ? $C->{p} * $C->{Page}{ipp} : $C->{total};$this->out("");$C->{link} = $C->{from} == $C->{to} ? $C->{from} : $C->{from} . '-' . $C->{to};$this->out("	\n");if ( $C->{cur_page} == $C->{p} ) {$this->out("		$C->{link}&nbsp;\n");} else {$this->out("		<a href=\"?tag=$C->{INPUT}{tag}$C->{add_param}&page=$C->{p}\">$C->{link}</a>&nbsp;\n");}$this->out("");}$this->out("\n");}$this->out("\n<br>\n");}$this->out("\n");if ( $C->{FrontendMode} eq 'add' ) {$this->out("<br>\n");$this->out(Zen::PerlHandler->get("II87558c806104b9db96c7d2251d8bb6f0->mnt_upload")->do($this->{C}));$this->out("\n<style type=\"text/css\">\ntable.testimonialAddForm\n{\n	font: normal 10pt Tahoma, sans-serif;\n}\n</style>\n\n<center>\n\n<a name=\"addform\"></a>\n\n");if ( $C->{action_complete} ) {$this->out("	<div style=\"color: blue;font-weight:bold\">Your message has been saved and<br>will be shown on this page soon after moderation!</div>\n");} else {$this->out("");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 action=\"#addform\" method=POST enctype=\"multipart/form-data\">\n	<input type=hidden name=add_code value=\"$C->{INPUT}{add_code}\">\n	<input type=hidden name=page value=\"$C->{INPUT}{page}\">\n	<input type=hidden name=tag value=\"$C->{INPUT}{tag}\">\n	<table border=0 cellpadding=4 cellspacing=3 class=testimonialAddForm>\n	<tr>\n		<td><b style=color:red>*</b>&nbsp;Your name</td>\n		<td>$C->{Form}{name}</td>\n	</tr>\n	<tr>\n		<td><b style=color:red>*</b>&nbsp;Your e-mail<br>(will not be displayed)</td>\n		<td>$C->{Form}{email}</td>\n	</tr>\n	<tr>\n		<td>Image</td>\n		<td>$C->{Form}{image}</td>\n	</tr>\n	<tr>\n		<td>Website</td>\n		<td>\n			<table cellpadding=0 cellspacing=3 class=testimonialAddForm>\n			<tr><td>$C->{Form}{website_title}&nbsp;title</td></tr>\n			<tr><td>$C->{Form}{website_url}&nbsp;URL</td></tr>\n			</table>\n		<td>\n	</tr>\n	<tr>\n		<td><b style=color:red>*</b>&nbsp;Your message</td>\n		<td>$C->{Form}{testimonial}</td>\n	</tr>\n	<tr>\n		<td>Video</td>\n		<td>\n			<table cellpadding=0 cellspacing=3 class=testimonialAddForm>\n			<tr><td>$C->{Form}{player}&nbsp;Player type</td></tr>\n			<tr><td>$C->{Form}{youtube_id}&nbsp;YouTube Video ID (if you selected YouTube video)<br>\n					<b>Upload video/audio file (if you selected FLV/SWF or MP3 players):</b><br>\n					$C->{Form}{videofile}<br>\n					<b>Or specify direct URL:</b><br>\n					$C->{Form}{url}\n			</td></tr>\n			</table>\n		</td>\n	</tr>\n	<tr><td align=\"center\" colspan=2><input type=submit name=submit value=\"Submit\"></td></tr>\n	</table>\n	</form>\n");}$this->out("\n</center>\n");}$this->out("\n");{my $out1 = $this->getOutput;$C->{content} = join('', @$out1);@$out1 = ();my $out2 = II982446f8950cc3dc59e487adba22df54::lllllIllIlIllllI($IIb39071a48a82a07eeb9256f406abebc5::lllllIlIlllIllIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllIlIIllI},987,$IIb39071a48a82a07eeb9256f406abebc5::lllllIlIlllIllIl{$II720d6e18aa34327713eb014408fc9144::lIIlllIllIlIllll})->executeCode($C, $C->{TemplateCode});$this->out(@$out2) if $out2;}$this->out("");}