loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.150, 2006/08/04 21:33:53	version 1.152, 2006/08/08 19:10:54
Line 689 sub StatusOptions {	Line 689 sub StatusOptions {
$status = $env{'form.Status'} if (exists($env{'form.Status'}));	$status = $env{'form.Status'} if (exists($env{'form.Status'}));
}	}

my $OpSel1 = '';
my $OpSel2 = '';
my $OpSel3 = '';

if($status eq 'Any') { $OpSel3 = ' selected'; }
elsif($status eq 'Expired' ) { $OpSel2 = ' selected'; }
else { $OpSel1 = ' selected'; }

my $Str = '';	my $Str = '';
$Str .= '<select name="Status"';	$Str .= '<select name="Status"';
if(defined($formName) && $formName ne '' && ! defined($onchange)) {	if(defined($formName) && $formName ne '' && ! defined($onchange)) {
Line 707 sub StatusOptions {	Line 699 sub StatusOptions {
}	}
$Str .= ' size="'.$size.'" ';	$Str .= ' size="'.$size.'" ';
$Str .= '>'."\n";	$Str .= '>'."\n";
$Str .= '<option value="Active" '.$OpSel1.'>'.	foreach my $type (['Active', &mt('Currently Enrolled')],
&mt('Currently Enrolled').'</option>'."\n";	['Future', &mt('Future Enrollment')],
$Str .= '<option value="Expired" '.$OpSel2.'>'.	['Expired', &mt('Previously Enrolled')],
&mt('Previously Enrolled').'</option>'."\n";	['Any', &mt('Any Enrollment Status')]) {
$Str .= '<option value="Any" '.$OpSel3.'>'.	my ($name,$label) = @$type;
&mt('Any Enrollment Status').'</option>'."\n";	$Str .= '<option value="'.$name.'" ';
	if ($status eq $name) {
	$Str .= 'selected="selected" ';
	}
	$Str .= '>'.$label.'</option>'."\n";
	}

$Str .= '</select>'."\n";	$Str .= '</select>'."\n";
}	}