package IIa66da94aed9b371a0ee16b72f938ea09::tag_formcontrol; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my ($field, $value, $control) = ($attr->{field}, $attr->{value}, $attr->{control}); $this->harakiri('no field or control') unless $field && $control; $this->evaluate for $field; $this->evaluate(1) for $value, $control; my $formClass = II8dae0e141ee45f5daba6a74e4a7c3b6f::llIIlIIlIIIIlIlI($II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$II982446f8950cc3dc59e487adba22df54::IllllIlIIIlIIIII},990,$II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl{$II982446f8950cc3dc59e487adba22df54::lIlIlllIIIlIlIll}); $this->addCode("require $formClass;"); $this->addCode("\$this->out(II720d6e18aa34327713eb014408fc9144::llllllIIIlIIlIlI($II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II982446f8950cc3dc59e487adba22df54::lIIlIlIIIIIIllII},990,$II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlIlIIIIllIIIl})->standaloneFormControl($field => $value, $control));"); return; } 1; 