loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.116, 2004/09/27 20:59:21	version 1.117, 2004/09/28 20:40:05
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#


package Apache::scripttag;	package Apache::scripttag;

use strict;	use strict;
Line 118 sub start_script {	Line 117 sub start_script {
($Apache::lonhomework::viewgrades == 'F')) {	($Apache::lonhomework::viewgrades == 'F')) {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser();	my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser();
my $nothing= &Apache::lonhtmlcommon::javascript_nothing();	$result.="<script type=\"text/javascript\"> function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.document.open('text/html','replace');newWindow.document.writeln('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><pre>";
$result.="<script type=\"text/javascript\"> function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.document.open($nothing,'replace');newWindow.document.writeln('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><pre>";
my $listing=&Apache::run::dump($target,$safeeval);	my $listing=&Apache::run::dump($target,$safeeval);
$listing=~s/\'/\\\'/g;	$listing=~s/\'/\\\'/g;
$listing=~s/\n/\\n/g;	$listing=~s/\n/\\n/g;