loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2002/07/22 21:21:32	version 1.3, 2002/07/24 14:52:32
Line 63 sub StudentOptions {	Line 63 sub StudentOptions {
$Str = '<select name="'.(($page)?$page:'').'Student">'."\n";	$Str = '<select name="'.(($page)?$page:'').'Student">'."\n";

my $selected=0;	my $selected=0;
$Str .= '<option';
if($selectedName eq 'All Students') {
$Str .= ' selected';
$selected = 1;
}
$Str .= '>All Students</option>'."\n";

foreach (@$students) {	foreach (@$students) {
$Str .= '<option';	$Str .= '<option';
Line 82 sub StudentOptions {	Line 76 sub StudentOptions {
}	}

$Str .= '<option';	$Str .= '<option';
if(!$selected) {	if($selectedName eq 'No Student Selected') {
$Str .= ' selected';	$Str .= ' selected';
	$selected = 1;
}	}
$Str .= '>No Student Selected</option>'."\n";	$Str .= '>No Student Selected</option>'."\n";

	$Str .= '<option';
	if(!$selected) {
	$Str .= ' selected';
	}
	$Str .= '>All Students</option>'."\n";

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

return $Str;	return $Str;