loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2003/12/29 19:01:27	version 1.38, 2004/01/01 20:13:17
Line 91 sub textbox {	Line 91 sub textbox {
##############################################	##############################################
##############################################	##############################################
sub checkbox {	sub checkbox {
my ($name) = @_;	my ($name,$value) = @_;
my $Str = '<input type="checkbox" name="'.$name.'" />';	my $Str = '<input type="checkbox" name="'.$name.'"'.
	($value?' checked="1"':'').' />';
return $Str;	return $Str;
}	}

Line 437 sub StatusOptions {	Line 438 sub StatusOptions {
$Str .= ' size="'.$size.'" ';	$Str .= ' size="'.$size.'" ';
$Str .= '>'."\n";	$Str .= '>'."\n";
$Str .= '<option value="Active" '.$OpSel1.'>'.	$Str .= '<option value="Active" '.$OpSel1.'>'.
'Currently Enrolled</option>'."\n";	&mt('Currently Enrolled').'</option>'."\n";
$Str .= '<option value="Expired" '.$OpSel2.'>'.	$Str .= '<option value="Expired" '.$OpSel2.'>'.
'Previously Enrolled</option>'."\n";	&mt('Previously Enrolled').'</option>'."\n";
$Str .= '<option value="Any" '.$OpSel3.'>'.	$Str .= '<option value="Any" '.$OpSel3.'>'.
'Any Enrollment Status</option>'."\n";	&mt('Any Enrollment Status').'</option>'."\n";
$Str .= '</select>'."\n";	$Str .= '</select>'."\n";
}	}