loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.175 and 1.177

version 1.175, 2004/02/16 18:28:25	version 1.177, 2004/02/24 23:22:24
Line 526 sub verifyreceipt {	Line 526 sub verifyreceipt {

my ($string,$contents,$matches) = ('','',0);	my ($string,$contents,$matches) = ('','',0);
my (undef,undef,$fullname) = &getclasslist('all','0');	my (undef,undef,$fullname) = &getclasslist('all','0');

	my $receiptparts=0;
	if ($ENV{"course.$courseid.receiptalg"} eq 'receipt2') { $receiptparts=1; }
	my $parts=['0'];
	if ($receiptparts) { ($parts)=&response_type($url,$symb); }
	$request->print("got Parts ".join(':',@$parts));
foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {	foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) {
my ($uname,$udom)=split(/\:/);	my ($uname,$udom)=split(/\:/);
if ($receipt eq	foreach my $part (@$parts) {
&Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb)) {	if ($receipt eq &Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb,$part)) {
$contents.='<tr bgcolor="#ffffe6"><td> '."\n".	$contents.='<tr bgcolor="#ffffe6"><td> '."\n".
'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.	'<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom.
'\')"; TARGET=_self>'.$$fullname{$_}.'</a> </td>'."\n".	'\')"; TARGET=_self>'.$$fullname{$_}.'</a> </td>'."\n".
'<td> '.$uname.' </td>'.	'<td> '.$uname.' </td>'.
'<td> '.$udom.' </td></tr>'."\n";	'<td> '.$udom.' </td>';
	if ($receiptparts) {
$matches++;	$contents.='<td> '.$part.' </td>';
	}
	$contents.='</tr>'."\n";

	$matches++;
	}
}	}
}	}
if ($matches == 0) {	if ($matches == 0) {
Line 550 sub verifyreceipt {	Line 560 sub verifyreceipt {
'<table border="0"><tr bgcolor="#e6ffff">'."\n".	'<table border="0"><tr bgcolor="#e6ffff">'."\n".
'<td><b> Fullname </b></td>'."\n".	'<td><b> Fullname </b></td>'."\n".
'<td><b> Username </b></td>'."\n".	'<td><b> Username </b></td>'."\n".
'<td><b> Domain </b></td></tr>'."\n".	'<td><b> Domain </b></td>';
$contents.	if ($receiptparts) {
	$string.='<td> Problem Part </td>';
	}
	$string.='</tr>'."\n".$contents.
'</table></td></tr></table>'."\n";	'</table></td></tr></table>'."\n";
}	}
return $string.&show_grading_menu_form($symb,$url);	return $string.&show_grading_menu_form($symb,$url);
Line 3992 sub scantron_get_correction {	Line 4005 sub scantron_get_correction {
'scantron_username','scantron_domain'));	'scantron_username','scantron_domain'));
$r->print(": <input type='text' name='scantron_username' value='' />");	$r->print(": <input type='text' name='scantron_username' value='' />");
$r->print("\n@".	$r->print("\n@".
&Apache::loncommon::select_dom_form(undef,'scantron_domain'));	&Apache::loncommon::select_dom_form($ENV{'request.role..domain'},'scantron_domain'));

$r->print('</li>');	$r->print('</li>');
} elsif ($error eq 'doublebubble') {	} elsif ($error eq 'doublebubble') {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.175
changed lines
	Added in v.1.177