loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.200, 2003/08/04 22:40:03	version 1.200.2.1, 2003/08/30 02:40:17
Line 72 sub end_tex {	Line 72 sub end_tex {
sub page_start {	sub page_start {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my %found;	my %found;
foreach my $taginside ($tagstack) {	foreach my $taginside (@$tagstack) {
foreach my $taglookedfor ('html','body','form') {	foreach my $taglookedfor ('html','body','form') {
if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}	if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
}	}