loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.262, 2013/07/15 16:13:12	version 1.263, 2014/02/13 18:13:22
Line 252 sub add_grading_button {	Line 252 sub add_grading_button {
$size=scalar(keys(%sections))+2;	$size=scalar(keys(%sections))+2;
}	}
my $sec_select = "\n".'<select multiple="multiple" name="chosensections" size="'.$size.'">'."\n";	my $sec_select = "\n".'<select multiple="multiple" name="chosensections" size="'.$size.'">'."\n";
$sec_select .= "\t<option value='all' selected='selected'>all</option>\n";	$sec_select .= "\t".'<option value="all" selected="selected">'.&mt('all')."</option>\n";
foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {	foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {
$sec_select .= "\t<option value=\"$sec\">$sec</option>\n";	$sec_select .= "\t<option value=\"$sec\">$sec</option>\n";
}	}
$sec_select .= "\t<option value='none'>none</option>\n</select>\n";	$sec_select .= "\t".'<option value="none">'.&mt('none')."</option>\n</select>\n";

my $uri=$env{'request.uri'};	my $uri=$env{'request.uri'};
if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }	if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }