loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.93, 2003/06/08 00:43:19	version 1.94, 2003/06/08 00:51:56
Line 288 sub end_window {	Line 288 sub end_window {
if (!$width) { $width='500'; }	if (!$width) { $width='500'; }
my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval);	my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval);
if (!$height) { $height='200'; }	if (!$height) { $height='200'; }
	$output =~ s/[\n\r]/ /g;
$output =~ s/\'/\\\&\#39\;/g;	$output =~ s/\'/\\\&\#39\;/g;
$output =~ s/\"/\&quot\;/g;	$output =~ s/\"/\&quot\;/g;
$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=$width,height=$height,scrollbars=1\');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);\">$linktext</a>";	$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=$width,height=$height,scrollbars=1\');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);\">$linktext</a>";