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.485 and 1.486

version 1.485, 2007/11/08 01:48:18	version 1.486, 2007/11/08 19:57:30
Line 745 sub verifyreceipt {	Line 745 sub verifyreceipt {
$env{"course.$courseid.receiptalg"} eq 'receipt3') { $receiptparts=1; }	$env{"course.$courseid.receiptalg"} eq 'receipt3') { $receiptparts=1; }
my $parts=['0'];	my $parts=['0'];
if ($receiptparts) { ($parts)=&response_type($symb); }	if ($receiptparts) { ($parts)=&response_type($symb); }

	my $header =
	&Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row().
	'<th> Fullname </th>'."\n".
	'<th> Username </th>'."\n".
	'<th> Domain </th>';
	if ($receiptparts) {
	$header.='<th> Problem Part </th>';
	}
	$header.=
	&Apache::loncommon::end_data_table_header_row();

foreach (sort	foreach (sort
{	{
if (lc($$fullname{$a}) ne lc($$fullname{$b})) {	if (lc($$fullname{$a}) ne lc($$fullname{$b})) {
Line 755 sub verifyreceipt {	Line 768 sub verifyreceipt {
my ($uname,$udom)=split(/\:/);	my ($uname,$udom)=split(/\:/);
foreach my $part (@$parts) {	foreach my $part (@$parts) {
if ($receipt eq &Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb,$part)) {	if ($receipt eq &Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb,$part)) {
$contents.='<tr bgcolor="#ffffe6"><td> '."\n".	$contents.=
	&Apache::loncommon::start_data_table_row().
	'<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>'.
Line 763 sub verifyreceipt {	Line 778 sub verifyreceipt {
if ($receiptparts) {	if ($receiptparts) {
$contents.='<td> '.$part.' </td>';	$contents.='<td> '.$part.' </td>';
}	}
$contents.='</tr>'."\n";	$contents.=
	&Apache::loncommon::end_data_table_row()."\n";

$matches++;	$matches++;
}	}
Line 775 sub verifyreceipt {	Line 791 sub verifyreceipt {
$string = &jscriptNform($symb).$title.	$string = &jscriptNform($symb).$title.
'The above receipt matches the following student'.	'The above receipt matches the following student'.
($matches <= 1 ? '.' : 's.')."\n".	($matches <= 1 ? '.' : 's.')."\n".
'<table border="0"><tr><td bgcolor="#777777">'."\n".	$header.
'<table border="0"><tr bgcolor="#e6ffff">'."\n".	$contents.
'<td><b> Fullname </b></td>'."\n".	&Apache::loncommon::end_data_table()."\n";
'<td><b> Username </b></td>'."\n".
'<td><b> Domain </b></td>';
if ($receiptparts) {
$string.='<td> Problem Part </td>';
}
$string.='</tr>'."\n".$contents.
'</table></td></tr></table>'."\n";
}	}
return $string.&show_grading_menu_form($symb);	return $string.&show_grading_menu_form($symb);
}	}

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

Removed from v.1.485
changed lines
	Added in v.1.486