loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.353, 2006/04/28 18:33:10	version 1.355, 2006/05/23 19:05:42
Line 160 sub page_start {	Line 160 sub page_start {
$form_tag_start.=&Apache::edit::form_change_detection();	$form_tag_start.=&Apache::edit::form_change_detection();
}	}
$form_tag_start.='>';	$form_tag_start.='>';

	my $symb=&Apache::lonnet::symbread();
	if ($symb =~ /\S/) {
	$symb=
	&HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb));
	$form_tag_start.=
	'<input type="hidden" name="symb" value="'.$symb.'" />';
	}
}	}
return ($page_start,$form_tag_start);	return ($page_start,$form_tag_start);
}	}
Line 606 sub start_problem {	Line 614 sub start_problem {

my $name= &get_resource_name($parstack,$safeeval);	my $name= &get_resource_name($parstack,$safeeval);
my ($result,$form_tag_start);	my ($result,$form_tag_start);
if ($target eq 'web' \|\| $target eq 'webgrade' \|\| $target eq 'tex') {	if ($target eq 'web' \|\| $target eq 'webgrade' \|\| $target eq 'tex'
	\|\| $target eq 'edit') {
($result,$form_tag_start) =	($result,$form_tag_start) =
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval,
$name);	$name);