sub print_form() {

    my %field_ref;

    my $field_ref = shift;

   
    #first, set the params

    my $q = new CGI("");

    my %real_fields;

while (my $key = each %$field_ref) {
        $real_fields{$key} = $field_ref->{$key};
        my $index = index $configs{checkboxes},$key;
        if ($index != -1) {
            my @check_array = split(',',$real_fields{$key});
            $q->param(-name=>"$key", -value=>"\@check_array");
        } else {
            $q->param(-name=>"$key", -value=>"$real_fields{$key}");
        }
    }