version 1.65, 2001/08/20 23:31:08
|
version 1.66, 2001/08/22 19:21:36
|
Line 65 sub page_start {
|
Line 65 sub page_start {
|
|
|
sub initialize_storage { |
sub initialize_storage { |
%Apache::lonhomework::results=(); |
%Apache::lonhomework::results=(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
%Apache::lonhomework::history= |
%Apache::lonhomework::history= |
&Apache::lonnet::restore($symb,$courseid,$domain,$name); |
&Apache::lonnet::restore($symb,$courseid,$domain,$name); |
#ignore error conditions |
#ignore error conditions |
Line 81 sub finalize_storage {
|
Line 81 sub finalize_storage {
|
my $result; |
my $result; |
my ($temp) = keys %Apache::lonhomework::results; |
my ($temp) = keys %Apache::lonhomework::results; |
if ( $temp ne '' ) { |
if ( $temp ne '' ) { |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
$result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, |
$result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, |
$symb,$courseid,$domain,$name); |
$symb,$courseid,$domain,$name); |
&Apache::lonxml::debug("Store return message:".$result); |
&Apache::lonxml::debug("Store return message:".$result); |