Select Code to Download

Select or download this

sub lbl {
    my $args = { -class => 'small', -for => $_[0] };
...
    %$args = (%$args, %{$_[0]}) if $_[0];
    textfield($args);
}

Select or download this

# Instead of
# label({-class=>'small', -for=>'ff_job_id'},'FaultFinder ID')
...
# Instead of
#textfield({-name=>'searchby_date_start',-id=>'searchby_date_start',-o
+nchange=>"checkDate(this)"})
txt('searchby_date_start', {-onchange => 'checkDate(this)'})