package II3562149e53818b6637b38680e87ba918::text; use strict; use Zen::PerlHandler; use II13f08045bb56858ecda5a9ccd642c6bc; sub get { my ($form, $f) = @_; my ($size, $maxlen, $addon) = split ',', Zen::PerlHandler->getStatList, 3; $maxlen = qq(maxlength="$maxlen") if $maxlen; $addon = qq(class="form-control"); sprintf( '<input type=text name="%s" value="%s" size="%s" %s %s>', $form->pfx.$f, II982446f8950cc3dc59e487adba22df54::lIlIIIlIIllIIlIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II720d6e18aa34327713eb014408fc9144::lIIIIllIIllIIIlI},1016,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$IIb39071a48a82a07eeb9256f406abebc5::llIIllIlIIlIllII})->HTMLEncode($form->getDecorated->{$f}), $size, $maxlen, $addon ); } sub set { my ($form, $f, $v) = @_; if (defined($v)) { $v =~ s/^[\s\t]+//; $v =~ s/[\s\t]+$//; } $form->getDecorated->{$f} = $v; return; } 1; 