version 1.80, 2003/06/25 19:25:54
|
version 1.81, 2003/07/14 13:10:39
|
Line 161 sub get_sequence_assessment_data {
|
Line 161 sub get_sequence_assessment_data {
|
$title = $previous->title(); |
$title = $previous->title(); |
$symb = $previous->symb(); |
$symb = $previous->symb(); |
$src = $previous->src(); |
$src = $previous->src(); |
|
# pick up the filename if there is no title available |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($src=~/\/([^\/]*)$/); |
|
} |
$randompick = $previous->randompick(); |
$randompick = $previous->randompick(); |
my $newmap = { title => $title, |
my $newmap = { title => $title, |
src => $src, |
src => $src, |
Line 1371 sub get_problem_statistics {
|
Line 1375 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 |
# Store in metadata |
# |
# |
if ($num) { |
if ($num) { |
my %storestats=(); |
my %storestats=(); |
|
|
Line 1387 sub get_problem_statistics {
|
Line 1391 sub get_problem_statistics {
|
$urlres=~/^(\w+)\/(\w+)/; |
$urlres=~/^(\w+)\/(\w+)/; |
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2); |
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2); |
} |
} |
# |
# |
# Return result |
# Return result |
# |
# |
return { num_students => $num, |
return { num_students => $num, |
tries => $tries, |
tries => $tries, |
max_tries => $mod, |
max_tries => $mod, |
Line 1399 sub get_problem_statistics {
|
Line 1403 sub get_problem_statistics {
|
num_solved => $Solved, |
num_solved => $Solved, |
num_override => $solved, |
num_override => $solved, |
per_wrong => $wrongpercent, |
per_wrong => $wrongpercent, |
deg_of_diff => $DegOfDiff } |
deg_of_diff => $DegOfDiff }; |
} |
} |
|
|
sub execute_SQL_request { |
sub execute_SQL_request { |