use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{TableClass} ||= die 'TableClass is expected in CTX';$this->out("");$this->out(Zen::PerlHandler->get("$C->{TableClass}->mnt")->do($this->{C}));$this->out("\n");$this->out(Zen::PerlHandler->get("$C->{TableClass}->mnt_display_message")->do($this->{C}));$this->out("\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("");}