|
version 1.97, 2003/06/09 21:37:54
|
version 1.98, 2003/06/18 20:36:32
|
|
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; |
$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); |
| 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'; } |
| $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 = "<script type=\"text/javascript\"> function LONCAPA_newwindow_$Apache::lonxml::curdepth() {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();}</script><a href=\"javascript:LONCAPA_newwindow_$Apache::lonxml::curdepth();void(0);\">$linktext</a>"; |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $result = '}'; |
$result = '}'; |
| } else { |
} else { |
![[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