use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$this->out(Zen::PerlHandler->get("II1b7f5cd35f00c93f234e8e1273dbac2a->mnt_registry")->do($this->{C}));$this->out("\n");$C->{TableTitle} = "Royalties to pay";$this->out("");$C->{TableClass} = II982446f8950cc3dc59e487adba22df54::lIlIIIlIIllIIlIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$II720d6e18aa34327713eb014408fc9144::IlIlllIIllllllll},897,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$II982446f8950cc3dc59e487adba22df54::llllllIlIIIIllII});$this->out("");$C->{TableSearchForm} = II720d6e18aa34327713eb014408fc9144::IIlllllIlllIIIIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIIlIlIlIlIIIl},903,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllllIIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IIllllIIllIlIlll});$this->out("\n");{my $G = (ref $this)->get("/zen/table.html", $this->{param}) or die "no skel /zen/table.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$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("");}