|
version 1.389, 2007/02/12 23:09:14
|
version 1.390, 2007/02/23 00:23:49
|
|
Line 599 sub verifyreceipt {
|
Line 599 sub verifyreceipt {
|
| my (undef,undef,$fullname) = &getclasslist('all','0'); |
my (undef,undef,$fullname) = &getclasslist('all','0'); |
| |
|
| my $receiptparts=0; |
my $receiptparts=0; |
| if ($env{"course.$courseid.receiptalg"} eq 'receipt2') { $receiptparts=1; } |
if ($env{"course.$courseid.receiptalg"} eq 'receipt2' || |
| |
$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); } |
| foreach (sort |
foreach (sort |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework