package II3562149e53818b6637b38680e87ba918::goth; use strict; use base qw/II3562149e53818b6637b38680e87ba918::text/; use Zen; use Zen::PerlHandler; use II982446f8950cc3dc59e487adba22df54; use Zen::Config; sub get { my ($form, $f) = @_; my ($tmpl, $cfgsec) = split ',', Zen::PerlHandler->getStatList, 2; my $C = $cfgsec ? $form->cfg->{$cfgsec} : {}; $C->{Form} = $form; $C->{Object} = $form->getDecorated; $C->{Field} = $f; $C->{GlobalCTX} = Zen->getRequest->getCtx; my $G = II982446f8950cc3dc59e487adba22df54::lIlIIIlIIllIIlIl($II982446f8950cc3dc59e487adba22df54::lllllllIIlllIIIl{$II982446f8950cc3dc59e487adba22df54::IIlIllllIlIIllIl},987,$II982446f8950cc3dc59e487adba22df54::lllllllIIlllIIIl{$II982446f8950cc3dc59e487adba22df54::IIIIIIlIIlIlIIlI})->get($tmpl) or die "no tmpl [$tmpl]"; my $out = $G->execute($C); return $out ? join('', @$out) : undef; } 1; 