|
version 1.79, 2003/06/19 12:45:54
|
version 1.80, 2003/06/25 19:25:54
|
|
Line 1371 sub get_problem_statistics {
|
Line 1371 sub get_problem_statistics {
|
| } |
} |
| # |
# |
| $dbh->do('DROP TABLE '.$stats_table); # May return an error |
$dbh->do('DROP TABLE '.$stats_table); # May return an error |
| |
# |
| |
# Store in metadata |
| |
# |
| |
if ($num) { |
| |
my %storestats=(); |
| |
|
| |
my $urlres=(split(/\_\_\_/,$symb))[2]; |
| |
|
| |
$storestats{$courseid.'___'.$urlres.'___timestamp'}=time; |
| |
$storestats{$courseid.'___'.$urlres.'___stdno'}=$num; |
| |
$storestats{$courseid.'___'.$urlres.'___avetries'}=$mean; |
| |
$storestats{$courseid.'___'.$urlres.'___difficulty'}=$DegOfDiff; |
| |
|
| |
$urlres=~/^(\w+)\/(\w+)/; |
| |
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2); |
| |
} |
| |
# |
| |
# Return result |
| |
# |
| return { num_students => $num, |
return { num_students => $num, |
| tries => $tries, |
tries => $tries, |
| max_tries => $mod, |
max_tries => $mod, |
![[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