loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.177, 2004/02/24 23:22:24	version 1.178, 2004/02/25 00:31:57
Line 531 sub verifyreceipt {	Line 531 sub verifyreceipt {
if ($ENV{"course.$courseid.receiptalg"} eq 'receipt2') { $receiptparts=1; }	if ($ENV{"course.$courseid.receiptalg"} eq 'receipt2') { $receiptparts=1; }
my $parts=['0'];	my $parts=['0'];
if ($receiptparts) { ($parts)=&response_type($url,$symb); }	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(/\:/);
foreach my $part (@$parts) {	foreach my $part (@$parts) {