use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inc_tinymce.html", $this->{param}) or die "no skel /headfoot/inc_tinymce.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");$C->{INPUT}{TabCustom1} ||= "sets";$this->out("\n");if ( $C->{INPUT}{TabCustom1} eq 'sets' ) {$this->out("\n");$C->{INPUT}{TabCustom2} = "$C->{INPUT}{ObjectID}";$this->out("");$C->{HTMLTitle} = ! $C->{INPUT}{TabAct} || $C->{INPUT}{TabAct} eq 'list' ? 'Clouds configurations' : 'Clouds configuration #' . $C->{INPUT}{TabCustom2} . ': settings';$this->out("");$C->{TableTitle} = "Clouds configurations";$this->out("");$C->{TableClass} = IIb39071a48a82a07eeb9256f406abebc5::IIlIIIlIIlIIIlIl($II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIlIlllIIII},387,$II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II720d6e18aa34327713eb014408fc9144::lIIIlIIIllIlllII});$this->out("\n");} elsif ( $C->{INPUT}{TabCustom1} eq 'clouds' ) {$this->out("\n");$C->{HTMLTitle} = "Clouds configuration #$C->{INPUT}{TabCustom2}: clouds";$this->out("");$C->{TableTitle} = "Clouds";$this->out("");$C->{TableClass} = II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIlIIIIlIIlIll($II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II982446f8950cc3dc59e487adba22df54::IIlIllllIlIIllIl},614,$II720d6e18aa34327713eb014408fc9144::IIllIllllIlllIIl{$II720d6e18aa34327713eb014408fc9144::llIIIIIlllllIlIl});$this->out("\n");}$this->out("\n");$this->out(Zen::PerlHandler->get("$C->{TableClass}->mnt")->do($this->{C}));$this->out("\n\n");if ( $C->{TableClass} ne II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIllIIIllIllII($IIb39071a48a82a07eeb9256f406abebc5::IlllIllIllIllIll{$II720d6e18aa34327713eb014408fc9144::lIIIIllIIllIIIlI},387,$IIb39071a48a82a07eeb9256f406abebc5::IlllIllIllIllIll{$II720d6e18aa34327713eb014408fc9144::IIllllllIIllllll}) || ($C->{INPUT}{TabAct} ne 'list' && $C->{INPUT}{TabAct} ne '' && $C->{INPUT}{ObjectID} && $C->{View}{stored}) ) {$this->out("\n\n\n\n	<form name=Menu action=\"$C->{SYS}{URL}/master/plugins/clouds.html\" method=POST enctype=\"multipart/form-data\">\n		<input type=\"hidden\" name=\"TabCustom1\" value=\"$C->{INPUT}{TabCustom1}\">\n		<input type=\"hidden\" name=\"TabCustom2\" value=\"$C->{INPUT}{TabCustom2}\">\n		<input type=\"hidden\" name=\"ObjectID\">\n		<input type=\"hidden\" name=\"TabAct\">\n		\n");my $in = [ { name => 'sets', title => 'Settings' }, { name => 'clouds', title => 'Clouds' } ];my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{i} = -1;for my $f (@$loop) {$C->{ITERATION}{i}++;$C->{i} = $f;$this->out("");if ( $C->{ITERATION}{i} ) {$this->out("&nbsp;|&nbsp;");}$this->out("			\n");if ( $C->{i}{name} eq $C->{INPUT}{TabCustom1} ) {$this->out("				<a style=\"font-weight:bold\">$C->{i}{title}</a>\n");} elsif ( $C->{i}{name} eq 'sets' ) {$this->out("				<a class=\"jinTableLink\" href=\"#\" onClick=\"document.forms[\'Menu\'].elements[\'TabAct\'].value=\'edit\';\ndocument.forms[\'Menu\'].elements[\'ObjectID\'].value=\'$C->{INPUT}{TabCustom2}\'; document.forms[\'Menu\'].elements[\'TabCustom1\'].value=\'$C->{i}{name}\'; document.forms[\'Menu\'].submit();\">$C->{i}{title}</a>\n");} else {$this->out("				<a class=\"jinTableLink\" href=\"#\" onClick=\"document.forms[\'Menu\'].elements[\'TabAct\'].value=\'list\'; document.forms[\'Menu\'].elements[\'TabCustom1\'].value=\'$C->{i}{name}\'; document.forms[\'Menu\'].submit();\">$C->{i}{title}</a>\n");}$this->out("");}$this->out("	</form>\n	<br>\n");}$this->out("\n\n");{my $G = (ref $this)->get("/zen/table/supl.html", $this->{param}) or die "no skel /zen/table/supl.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");{my $G = (ref $this)->get("$C->{TabActCfg}{template}", $this->{param}) or die "no skel $C->{TabActCfg}{template}";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n");if ( $C->{INPUT}{TabCustom1} eq 'clouds' && $C->{INPUT}{TabAct} ne 'list' && $C->{INPUT}{TabAct} ne '' && $C->{INPUT}{ObjectID} && $C->{View}{stored} ) {$this->out("	<br>\n	<iframe\n		width=\"100\%\" height=\"100\" frameborder=\"0\"\n		name=\"IFrameComments\" id=\"IFrameComments\"\n		src=\"$C->{SYS}{URL}/master/plugins/clouds/comments.html?TabCustom1=$C->{Object}{id}\">\n	</iframe>\n");}$this->out("\n");{my $G = (ref $this)->get("/headfoot/hf_main.html", $this->{param}) or die "no skel /headfoot/hf_main.html";my $out1 = $this->getOutput;$C->{central_content} = join('', @$out1);@$out1 = ();my $out2 = $G->execute($C);$this->out(@$out2) if $out2;}$this->out("");}