loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.95, 2003/06/08 21:03:19	version 1.97, 2003/06/09 21:37:54
Line 283 sub end_window {	Line 283 sub end_window {
if ($target eq 'web') {	if ($target eq 'web') {
my $output=&Apache::lonxml::endredirection;	my $output=&Apache::lonxml::endredirection;
$output =~ s/[\n\r]/ /g;	$output =~ s/[\n\r]/ /g;
$output=&HTML::Entities::encode($output,'<>&"\'');	$output = &HTML::Entities::encode($output,'<>&"\'');
	$output =~ s/&/\\&/g;
my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval);	my $linktext= &Apache::lonxml::get_param('linktext',$parstack,$safeeval);
if (!$linktext) { $linktext='<sup>*</sup>'; }	if (!$linktext) { $linktext='<sup>*</sup>'; }
my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval);	my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval);