loncom/xml/scripttag.pm - diff - 1.109

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.108 and 1.109

version 1.108, 2004/02/11 15:10:05	version 1.109, 2004/02/12 17:34:24
Line 118 sub start_script {	Line 118 sub start_script {
($ENV{'form.answer_output_mode'} ne 'tex') &&	($ENV{'form.answer_output_mode'} ne 'tex') &&
($Apache::lonhomework::viewgrades == 'F')) {	($Apache::lonhomework::viewgrades == 'F')) {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
$result.="<script type=\"text/javascript\"> function LONCAPA_scriptvars_$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>";	my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser();
	$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>";
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;
$listing=~s/\r/\\r/g;	$listing=~s/\r/\\r/g;
$result.=$listing;	$result.=$listing;
$result.= "</pre></body></html>');newWindow.document.close();}</script><a href=\"javascript:LONCAPA_scriptvars_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />";	$result.= "</pre></body></html>');newWindow.document.close();}</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />";
}	}
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
#&Apache::run::run($bodytext,$safeeval);	#&Apache::run::run($bodytext,$safeeval);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>