version 1.288, 2005/04/18 22:39:35
|
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 368 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 { |