elsif ($type =~ /check/) {
            my $i=0;
            print "$english:\n";
            (my $values, my $labels) = split (':',$params[0]);
            my @checks_list = split (';',$values);
            my @clabels_list = split (';',$labels);
            foreach(@checks_list) {
                my $index=index $real_fields{$name},$_;
                if ($index != -1) {
                    print "$clabels_list[$i]<INPUT TYPE=\"checkbox\" NAME=\"$name\" VALUE=\"$_\" CHECKED>\n";
                } else {
                    print "$clabels_list[$i]<INPUT TYPE=\"checkbox\" NAME=\"$name\" VALUE=\"$_\">\n";

                }
                $i++;
            }
            print $q->br();
}