loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.152, 2006/08/08 19:10:54	version 1.153, 2006/08/18 15:15:38
Line 699 sub StatusOptions {	Line 699 sub StatusOptions {
}	}
$Str .= ' size="'.$size.'" ';	$Str .= ' size="'.$size.'" ';
$Str .= '>'."\n";	$Str .= '>'."\n";
foreach my $type (['Active', &mt('Currently Enrolled')],	foreach my $type (['Active', &mt('Currently Has Access')],
['Future', &mt('Future Enrollment')],	['Future', &mt('Will Have Future Access')],
['Expired', &mt('Previously Enrolled')],	['Expired', &mt('Previously Had Access')],
['Any', &mt('Any Enrollment Status')]) {	['Any', &mt('Any Access Status')]) {
my ($name,$label) = @$type;	my ($name,$label) = @$type;
$Str .= '<option value="'.$name.'" ';	$Str .= '<option value="'.$name.'" ';
if ($status eq $name) {	if ($status eq $name) {