loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.365, 2006/09/27 22:42:25	version 1.366, 2006/09/29 20:55:33
Line 594 sub start_problem {	Line 594 sub start_problem {
}	}

if ($target ne 'analyze') {	if ($target ne 'analyze') {
if ($target eq 'web') {
&Apache::lonhomework::showhash(%Apache::lonhomework::history);
}
if ($env{'request.state'} eq 'construct') { &set_problem_state('0'); }	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') &&
Line 618 sub start_problem {	Line 615 sub start_problem {
$Apache::lonhomework::default_type = $Apache::lonhomework::type;	$Apache::lonhomework::default_type = $Apache::lonhomework::type;

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

#added vars to the scripting enviroment	#added vars to the scripting enviroment
my $expression='$external::part=\''.$Apache::inputtags::part.'\';';	my $expression='$external::part=\''.$Apache::inputtags::part.'\';';