loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

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

version 1.107, 2004/02/10 18:58:26	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);
Line 138 sub start_script {	Line 139 sub start_script {
} else {	} else {
if ($target ne "meta") {	if ($target ne "meta") {
$result = $token->[4];	$result = $token->[4];
my $bodytext=&Apache::lonxml::get_all_text_unblanaced("/script",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser);
$result.=$bodytext;	$result.=$bodytext;
}	}
}	}

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

Removed from v.1.107
changed lines
	Added in v.1.109