loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.199, 2003/07/25 10:44:36	version 1.200, 2003/08/04 22:40:03
Line 44 BEGIN {	Line 44 BEGIN {

sub start_web {	sub start_web {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if (!($target eq 'web' \|\| $target eq 'edit' \|\| $target eq 'modified' \|\|	my $bodytext=&Apache::lonxml::get_all_text("/web",$parser);
$target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'meta' )) {	if ($target eq 'web') {
my $bodytext=&Apache::lonxml::get_all_text("/web",$parser);	return $bodytext;
}	}
return '';	return '';
}	}
Line 58 sub end_web {	Line 58 sub end_web {
sub start_tex {	sub start_tex {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';	my $result='';
if (!($target eq 'edit' \|\| $target eq 'modified' \|\|	my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);
$target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'meta' )) {	if ($target eq 'tex') {
&Apache::lonxml::debug("tex 1");	return $bodytext.' ';
my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);
} elsif ($target eq 'tex') {
$result=&Apache::lonxml::get_all_text("/tex",$parser);
}	}
return $result;;	return $result;;
}	}