use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("\n<iframe\n	width=\"100\%\" height=\"1500\" frameborder=\"0\"\n	name=\"IFrameThemes\" id=\"IFrameThemes\"\n	src=\"$C->{SYS}{URL}/master/tools/themes/themes.html\">\n</iframe>\n\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("");}