package II3562149e53818b6637b38680e87ba918::textarea; use strict; use base qw/II3562149e53818b6637b38680e87ba918::text/; use Zen::PerlHandler; use II13f08045bb56858ecda5a9ccd642c6bc; sub get { my ($this, $f) = @_; my ($rows, $cols, $addon) = split ',', Zen::PerlHandler->getStatList, 3; $addon = qq(class="form-control"); sprintf( '<textarea name="%s%s" rows=%s cols=%s %s>%s</textarea>', $this->pfx, $f, $rows, $cols, $addon, II982446f8950cc3dc59e487adba22df54::IlIlllIlIIlIllll($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II982446f8950cc3dc59e487adba22df54::IlIIlllIIIllIIII},1016,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II982446f8950cc3dc59e487adba22df54::lIlIlllIIIlIlIll})->HTMLEncode($this->getDecorated->{$f}) ); } 1; 