|
version 1.95, 2003/06/08 21:03:19
|
version 1.96, 2003/06/09 15:46:01
|
|
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; |
| $output =~ s/[\n\r]/ /g; |
|
| $output=&HTML::Entities::encode($output,'<>&"\''); |
|
| 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); |
| 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/\"/\"\;/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>"; |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result = '}'; |
$result = '}'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to scripttag.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml