loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.56, 2001/08/17 15:51:00	version 1.57, 2001/08/17 16:50:04
Line 92 sub start_problem {	Line 92 sub start_problem {
my ($result,$head_tag_start,$body_tag_start)=	my ($result,$head_tag_start,$body_tag_start)=
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);

	if ($target eq 'web') {
	if ($ENV{'form.doescheckout'}) {
	$body_tag_start.=&Apache::lonxml::maketoken('web');
	}
	}
if ($target eq 'web' \|\| $target eq 'grade') {	if ($target eq 'web' \|\| $target eq 'grade') {
($status,$accessmsg) = &Apache::lonhomework::check_access('0');	($status,$accessmsg) = &Apache::lonhomework::check_access('0');
push (@Apache::inputtags::status,$status);	push (@Apache::inputtags::status,$status);
Line 118 Checking out resources is subject to cou	Line 123 Checking out resources is subject to cou
credit even if done erroneously.<p />	credit even if done erroneously.<p />
</font>	</font>
<form method=post>	<form method=post>
<input type=submit name="does_checkout"	<input type=submit name="doescheckout"
value="Check out Problem for Viewing" />	value="Check out Exam for Viewing" />
</form>	</form>
ENDCHECKOUT	ENDCHECKOUT
}	}