loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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);