loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.18, 2000/10/05 19:31:54	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 96 sub start_parserlib {	Line 97 sub start_parserlib {
sub end_parserlib {	sub end_parserlib {
}	}

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

	sub end_footnote {
	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 {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
my $bodytext=$$parser[$#$parser]->get_text("/import");	my $bodytext=$$parser[$#$parser]->get_text("/import");