loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.19, 2000/10/09 14:09:41	version 1.20, 2000/10/10 18:18:26
Line 9 use Apache::lonnet;	Line 9 use Apache::lonnet;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',	&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
'parserlib','import'));	'parserlib','import',
	'footnote'));
}	}

$Apache::scripttag::SCRIPT_RESULT='';	$Apache::scripttag::SCRIPT_RESULT='';
Line 98 sub end_parserlib {	Line 99 sub end_parserlib {

sub start_footnote {	sub start_footnote {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
my $result ="footnote";	my $result = '';
	$Apache::lonxml::redirection = 0;
return $result;	return $result;
}	}

sub end_footnote {	sub end_footnote {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	$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>";
	$Apache::lonxml::outputstack = "";
	$Apache::lonxml::redirection = 1;
	return $result;
}	}

sub start_import {	sub start_import {