loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.352, 2006/04/20 19:07:09	version 1.353, 2006/04/28 18:33:10
Line 331 Feedback Mode:	Line 331 Feedback Mode:
}	}

sub initialize_storage {	sub initialize_storage {
%Apache::lonhomework::results=();	undef(%Apache::lonhomework::results);
%Apache::lonhomework::history=();	undef(%Apache::lonhomework::history);
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();

	# anonymous users (CODEd exams) have no data
	if ($name eq 'anonymous'
	&& !defined($domain)) {
	return;
	}

if ($env{'request.state'} eq 'construct'	if ($env{'request.state'} eq 'construct'
\|\| $symb eq ''	\|\| $symb eq ''
\|\| $Apache::lonhomework::type eq 'practice') {	\|\| $Apache::lonhomework::type eq 'practice') {
Line 353 sub initialize_storage {	Line 360 sub initialize_storage {
%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
my ($temp)=keys %Apache::lonhomework::history ;	my ($temp)=keys %Apache::lonhomework::history ;
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }	if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); }