loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.349, 2006/04/20 02:05:30	version 1.350, 2006/04/20 03:28:52
Line 79 sub page_start {	Line 79 sub page_start {
}	}
}	}


if ($target eq 'tex') {	if ($target eq 'tex') {
return	return
&Apache::londefdef::start_html($target,$token,$tagstack,	&Apache::londefdef::start_html($target,$token,$tagstack,
Line 162 sub page_start {	Line 161 sub page_start {
}	}
$form_tag_start.='>';	$form_tag_start.='>';
}	}
	&Apache::lonnet::logthis("page_start -- ".length($page_start));
return ($page_start,$form_tag_start);	return ($page_start,$form_tag_start);
}	}

Line 597 sub start_problem {	Line 596 sub start_problem {
my $accessmsg;	my $accessmsg;

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

if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}	if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}

if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }	if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }