|
version 1.14, 2002/08/14 13:13:37
|
version 1.15, 2002/08/14 13:16:31
|
|
Line 692 sub ExtractStudentData {
|
Line 692 sub ExtractStudentData {
|
| foreach my $part (split(/\:/,$data->{$sequence.':'. |
foreach my $part (split(/\:/,$data->{$sequence.':'. |
| $problemID. |
$problemID. |
| ':parts'})) { |
':parts'})) { |
| |
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0; |
| |
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; |
| |
$output->{$name.':'.$problemID.':'.$part.':code'} = ' '; |
| $totalProblems++; |
$totalProblems++; |
| } |
} |
| $output->{$name.':'.$problemID.':'.$part.':tries'} = 0; |
|
| $output->{$name.':'.$problemID.':'.$part.':awarded'} = 0; |
|
| $output->{$name.':'.$problemID.':'.$part.':code'} = ' '; |
|
| $output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
$output->{$name.':'.$problemID.':NoVersion'} = 'true'; |
| next; |
next; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncoursedata.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface