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();