loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.362, 2006/07/27 20:47:03	version 1.364, 2006/08/28 14:26:04
Line 134 sub page_start {	Line 134 sub page_start {
$body_args{'force_register'} = 1;	$body_args{'force_register'} = 1;
$body_args{'add_entries'} = \%add_entries;	$body_args{'add_entries'} = \%add_entries;
}	}
	&Apache::lonlocal::mt_escape(\$name);
my $page_start = &Apache::loncommon::start_page($name,$extra_head,	my $page_start = &Apache::loncommon::start_page($name,$extra_head,
\%body_args);	\%body_args);

Line 593 sub start_problem {	Line 593 sub start_problem {
$Apache::lonhomework::scantronmode=1;	$Apache::lonhomework::scantronmode=1;
}	}

&initialize_storage();
if ($target ne 'analyze') {	if ($target ne 'analyze') {
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonhomework::showhash(%Apache::lonhomework::history);	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
Line 618 sub start_problem {	Line 617 sub start_problem {
}	}
$Apache::lonhomework::default_type = $Apache::lonhomework::type;	$Apache::lonhomework::default_type = $Apache::lonhomework::type;

	&initialize_storage();

#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.'\';';
$expression.='$external::type=\''.$Apache::lonhomework::type.'\';';	$expression.='$external::type=\''.$Apache::lonhomework::type.'\';';