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.33 and 1.34

version 1.33, 2001/02/19 20:43:00	version 1.34, 2001/02/22 00:49:03
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# <script> definiton	# <script> definiton
	# 2/21 Guy

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

Line 130 sub start_window {	Line 130 sub start_window {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
my $result = '';	my $result = '';
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::redirection = 0;	&Apache::lonxml::startredirection;
}	}
return $result;	return $result;
}	}
Line 139 sub end_window {	Line 139 sub end_window {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::outputstack =~ s/\"/\&quot\;/g;	my $output=&Apache::lonxml::endredirection;
$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $Apache::lonxml::outputstack </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";	$output =~ s/\"/\&quot\;/g;
$Apache::lonxml::outputstack = "";	$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $output </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";
$Apache::lonxml::redirection = 1;
} else {	} else {
$result = '';	$result = '';
}	}

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

Removed from v.1.33
changed lines
	Added in v.1.34