--- loncom/xml/scripttag.pm 2001/12/10 16:42:20 1.60 +++ loncom/xml/scripttag.pm 2003/05/14 13:33:00 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # '; + } + return ('','no'); +} + +sub end_LONCAPA_INTERNAL_LONHTTPD_PORT { + return ('','no'); } sub start_script { @@ -53,33 +79,38 @@ sub start_script { my $type= &Apache::lonxml::get_param('type',$parstack,$safeeval); &Apache::lonxml::debug("found type of $type"); if ($type eq "loncapa/perl") { - my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]); + my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); if ( $target eq "modified" ) { $result=$token->[4].&Apache::edit::modifiedfield(); } elsif ( $target eq 'web' || $target eq 'tex' || - $target eq 'grade' || $target eq 'answer') { - &Apache::run::run($bodytext,$safeeval); - if (($target eq 'answer') && ($Apache::lonhomework::viewgrades == 'F')) { - $Apache::lonxml::evaluate--; - $result.="newwindow"; - my $listing= &Apache::run::dump($target,$safeeval); - $listing =~ s/\n/\\n/g; - $listing =~ s/\"/"/g; - $listing =~ s/\'/’/g; - $listing =~ s/</g; - $listing =~ s/>/>/g; - $listing =~ s/&/&/g; - $result.=$listing; - $result.= "
"; - my $listing= &Apache::run::dump($target,$safeeval); - $listing =~ s/\n/\\n/g; - $listing =~ s/\"/"/g; - $listing =~ s/\'/’/g; - $listing =~ s/</g; - $listing =~ s/>/>/g; - $listing =~ s/&/&/g; - $result.=$listing; - $result.= "