loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.388, 2007/08/10 11:35:57	version 1.390, 2007/08/14 04:29:37
Line 644 sub start_problem {	Line 644 sub start_problem {
}	}

if ($target ne 'analyze') {	if ($target ne 'analyze') {
if ($env{'request.state'} eq 'construct') { &set_problem_state('0'); }
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
if (($env{'request.state'} eq 'construct') &&	if (($env{'request.state'} eq 'construct') &&
defined($env{'form.problemtype'})) {	defined($env{'form.problemtype'})) {
Line 665 sub start_problem {	Line 664 sub start_problem {
$Apache::lonhomework::default_type = $Apache::lonhomework::type;	$Apache::lonhomework::default_type = $Apache::lonhomework::type;

&initialize_storage();	&initialize_storage();
	if ($target ne 'analyze'
	&& $env{'request.state'} eq 'construct') {
	&set_problem_state('0');
	}

if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonxml::debug(" grading history ");	&Apache::lonxml::debug(" grading history ");
&Apache::lonhomework::showhash(%Apache::lonhomework::history);	&Apache::lonhomework::showhash(%Apache::lonhomework::history);