sub lbl {
    my $args = { -class => 'small', -for => $_[0] };
    label($args, $_[1]);
}

sub txt {
    my $name = shift;
    my $args = { -name => $name, -id => $name };
    %$args = (%$args, %{$_[0]}) if $_[0];
    textfield($args);
}

##</code><code>##

# Instead of
# label({-class=>'small', -for=>'ff_job_id'},'FaultFinder ID')
lbl('ff_job_id','FaultFinder ID')

# Instead of
# textfield({-name=>'searchby_status',-id=>'searchby_status'})
txt('searchby_status')

# Instead of
#textfield({-name=>'searchby_date_start',-id=>'searchby_date_start',-onchange=>"checkDate(this)"})
txt('searchby_date_start', {-onchange => 'checkDate(this)'})