Help for this page

Select Code to Download


  1. or download this
        sub checkbox {
        my ($name, $value, $sel) = @_;
...
    EOT
        return ($value eq $sel);
    }
  2. or download this
        checkbox("ss", "ss", $ss);
    checkbox("ss", "ssd", $ss);
  3. or download this
        my $found = 0;
    CHECKBOX: foreach (ss ssd pers) {
...
    if (not $found) {
        # code for those checkboxes with special treatment
    }