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("");{my $G = (ref $this)->get("/headfoot/inc_closewindow.html", $this->{param}) or die "no skel /headfoot/inc_closewindow.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");$this->out(Zen::PerlHandler->get("II8324236447952e569ba90326a60187e9->mnt_customize")->do($this->{C}));$this->out("	\n");if ( ! $C->{Forms} ) {$this->out("	<br><div align=\"center\" style=\"font-weight:bold;color:red\">There are no products for Quick resell in package $C->{Package}{title}.</div><br>\n");} elsif ( $C->{Package}{pgates} ) {$this->out("	<br><div align=\"center\" style=\"font-weight:bold;color:red\">\n	Product(s) cannot be configurated because of the package &quot;$C->{Package}{title} (\n	</div><br>\n");} else {$this->out("\n");if ( $C->{just_saved} ) {$this->out("	<br><div style=\"color: blue; font-size: 120\%\">Data has been saved</div>\n");}$this->out("	\n<div style=\"color: red\">\n");my $in = $C->{Forms};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{Form} = -1;for my $f (@$loop) {$C->{ITERATION}{Form}++;$C->{Form} = $f;$this->out("");if ( $C->{Form}{errors} ) {$this->out("");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>* Product #$C->{Form}{decorated}{prod_id}: $C->{error}{message}\n");}$this->out("");}$this->out("");}$this->out("</div><br>\n	\n<form action=\"$C->{SYS}{URL}$C->{ENV}{PATH_INFO}\" method=POST>\n	\n	<input type=\"hidden\" name=\"pack_id\" value=\"$C->{Package}{id}\">\n	\n	<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n		<tr>\n			<td class=atkHeader>Quick Resell configuration for $C->{Package}{title}</td>\n		</tr>\n");if ( $C->{Forms} ) {$this->out("		<tr>\n			<td class=atkEditorControl>\n				<input class=\"btn btn-primary\" type=\"submit\" name=\"save\" value=\"Save\">\n			</td>\n		</tr>\n");}$this->out("		<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=\"100\%\">\n");my $in = $C->{Forms};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{Form} = -1;for my $f (@$loop) {$C->{ITERATION}{Form}++;$C->{Form} = $f;$this->out("");$C->{View} = $C->{Form}->getDecorated->getView(II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIlIIIIlIIlIll($II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$IIb39071a48a82a07eeb9256f406abebc5::lIIIlIllllIIlIll},802,$II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II720d6e18aa34327713eb014408fc9144::llIIIIIlllllIlIl}));$this->out("				<tr><td class=atkEditorRight colspan=\"2\">&nbsp;</td></tr>\n				<tr>\n					<td class=atkEditorLeft colspan=\"2\" style=\"font-size: 105\%\">\n						$C->{View}{ProductTitle} (#$C->{View}{prod_id})\n					</td>\n				</tr>\n");if ( $C->{View}{instructions} ) {$this->out("				<tr>\n					<td class=atkEditorLeft>Instructions</td>\n					<td class=atkEditorRight width=\"500\">$C->{View}{instructions}</td>\n				</tr>\n");}$this->out("				<tr>\n					<td class=atkEditorLeft>Price</td>\n					<td class=atkEditorRight>\n						$C->{Form}{price}<br>\n						The following price range is allowed: $C->{View}{price_min}&nbsp;-&nbsp;$C->{View}{price_max}\n					</td>\n				</tr>\n				<tr>\n					<td class=atkEditorLeft><b style=\"color:red\">*</b>&nbsp;Payment options</td>\n					<td class=atkEditorRight>\n						$C->{Form}{pgates}<br>\n						Payment options allowed for this product are: $C->{View}{allowed_pgates}\n					</td>\n				</tr>\n");}$this->out("		</table></td></tr>\n");if ( $C->{Forms} ) {$this->out("		<tr>\n			<td class=atkEditorControl>\n				<input class=\"btn btn-primary\" type=\"submit\" name=\"save\" value=\"Save\">\n			</td>\n		</tr>\n");}$this->out("	</table>\n</form>\n	\n");}$this->out("	\n");{my $G = (ref $this)->get("/headfoot/inc_closewindow.html", $this->{param}) or die "no skel /headfoot/inc_closewindow.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");{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("");}