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.108 and 1.110

version 1.108, 2004/02/11 15:10:05	version 1.110, 2004/02/24 21:12:48
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 182 sub start_display {	Line 183 sub start_display {
}	}
$Apache::lonxml::post_evaluate=0;	$Apache::lonxml::post_evaluate=0;
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
my $bodytext=&Apache::lonxml::get_all_text_unblanced("/display",$parser);	my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser);
#$result =	#$result =
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";	# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />";
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);	#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);

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

Removed from v.1.108
changed lines
	Added in v.1.110