version 1.287, 2005/04/18 22:35:52
|
version 1.289, 2005/04/22 17:15:33
|
Line 321 sub initialize_storage {
|
Line 321 sub initialize_storage {
|
# if running user has student role. |
# if running user has student role. |
sub finalize_storage { |
sub finalize_storage { |
my $result; |
my $result; |
my ($temp) = keys %Apache::lonhomework::results; |
if (%Apache::lonhomework::results) { |
if ( $temp ne '' ) { |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
if ($env{'request.state'} eq 'construct' || $symb eq '') { |
if ($env{'request.state'} eq 'construct' || $symb eq '') { |
$Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'}; |
$Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'}; |
Line 340 sub finalize_storage {
|
Line 339 sub finalize_storage {
|
} |
} |
return $result; |
return $result; |
} |
} |
|
use Data::Dumper; |
|
|
# -------------------------------------------------------------store_aggregates |
# -------------------------------------------------------------store_aggregates |
# Sends hash of values to be incremented in nohist_resourcetracker.db |
# Sends hash of values to be incremented in nohist_resourcetracker.db |
Line 349 sub store_aggregates {
|
Line 349 sub store_aggregates {
|
my ($symb,$courseid) = @_; |
my ($symb,$courseid) = @_; |
my %aggregate; |
my %aggregate; |
my @parts; |
my @parts; |
my ($cdomain,$cname) = split(/_/,$courseid); |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
foreach my $key (keys(%Apache::lonhomework::results)) { |
foreach my $key (keys(%Apache::lonhomework::results)) { |
if ($key =~ /resource\.([^\.]+)\.tries/) { |
if ($key =~ /resource\.([^\.]+)\.tries/) { |
push(@parts, $1); |
push(@parts, $1); |
Line 367 sub store_aggregates {
|
Line 368 sub store_aggregates {
|
} |
} |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
} |
} |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
if (%aggregate) { |
$cdomain,$cname); |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
|
$cdomain,$cname); |
|
|
|
} |
} |
} |
|
|
sub checkout_msg { |
sub checkout_msg { |