loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.91, 2003/05/28 21:05:33	version 1.92, 2003/06/04 22:30:00
Line 282 sub end_window {	Line 282 sub end_window {
my $result;	my $result;
if ($target eq 'web') {	if ($target eq 'web') {
my $output=&Apache::lonxml::endredirection;	my $output=&Apache::lonxml::endredirection;
	my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval);
	if (!$linktext) { $linktext='<sup>*</sup>'; }
	my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval);
	if (!$width) { $width='500'; }
	my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval);
	if (!$height) { $height='200'; }
$output =~ s/\"/\&quot\;/g;	$output =~ s/\"/\&quot\;/g;
$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,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);\"><sup>*</sup></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>";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result = '}';	$result = '}';
} else {	} else {