--- loncom/xml/scripttag.pm 2000/10/10 18:18:26 1.20 +++ loncom/xml/scripttag.pm 2000/10/30 20:34:25 1.22 @@ -25,7 +25,7 @@ sub start_script { $Apache::scripttag::SCRIPT_RESULT=''; if ($type eq "loncapa/perl") { $safeeval->share('$SCRIPT_RESULT'); - my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]); + my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]); if ( $target eq "modified" ) { } @@ -108,6 +108,7 @@ sub end_footnote { my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; $Apache::lonxml::outputstack =~ s/\"/\"\;/g; my $result = "newwindow $Apache::lonxml::outputstack \');newWindow.document.close();void(0);\">*"; + if ($target eq 'meta') {$result = '';} $Apache::lonxml::outputstack = ""; $Apache::lonxml::redirection = 1; return $result;