loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.22, 2000/10/30 20:34:25	version 1.23, 2000/11/14 22:24:38
Line 108 sub end_footnote {	Line 108 sub end_footnote {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
$Apache::lonxml::outputstack =~ s/\"/\&quot\;/g;	$Apache::lonxml::outputstack =~ s/\"/\&quot\;/g;
my $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $Apache::lonxml::outputstack </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";	my $result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $Apache::lonxml::outputstack </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";
if ($target eq 'meta') {$result = '';}
$Apache::lonxml::outputstack = "";	$Apache::lonxml::outputstack = "";
$Apache::lonxml::redirection = 1;	$Apache::lonxml::redirection = 1;
return $result;	return $result;