loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.408, 2007/06/15 22:12:49	version 1.409, 2007/06/15 22:16:13
Line 6160 sub gather_adv_clicker_ids {	Line 6160 sub gather_adv_clicker_ids {
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);	my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
foreach my $element (sort keys %coursepersonnel) {	foreach my $element (sort(keys(%coursepersonnel))) {
foreach my $person (split(/\,/,$coursepersonnel{$element})) {	foreach my $person (split(/\,/,$coursepersonnel{$element})) {
my ($puname,$pudom)=split(/\:/,$person);	my ($puname,$pudom)=split(/\:/,$person);
my $clickers =	my $clickers =
Line 6321 sub process_clicker_file {	Line 6321 sub process_clicker_file {
($errormsg,$number)=&iclicker_eval(\@questiontitles,\%responses);	($errormsg,$number)=&iclicker_eval(\@questiontitles,\%responses);
}	}
$result.='<br />'.&mt('Found [_1] questions',$number).'<br />';	$result.='<br />'.&mt('Found [_1] questions',$number).'<br />';
foreach my $id (keys %responses) {	foreach my $id (keys(%responses)) {
$result.='<br />'.$id.' - '.$responses{$id};	$result.='<br />'.$id.' - '.$responses{$id};
}	}
return $result.&show_grading_menu_form($symb);	return $result.&show_grading_menu_form($symb);