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}");
        }
    }

##</code><code>##


elsif ($type =~ /check/) {
	    my %hash = ();
	    $type =~ s/check/checkbox/;
	    (my $values, my $labels) = split (':',$params[0]);
	    my @checks_list = split (';',$values);
	    my @clabels_list = split (';',$labels);
	    @hash{@checks_list} = @clabels_list;
	    foreach (keys %hash) {
		print checkbox(-name=>"$name", -value=>$_, -label=>"$hash{$_}");
	    }
	    print br();