version 1.30, 2001/01/10 14:12:03
|
version 1.31, 2001/01/10 16:53:07
|
Line 10 use Apache::lonnet;
|
Line 10 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', |
'window','meta')); |
'window','meta','display')); |
'footnote','display')); |
|
} |
} |
|
|
sub start_script { |
sub start_script { |
Line 130 sub end_parserlib {
|
Line 129 sub end_parserlib {
|
sub start_window { |
sub start_window { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::redirection = 0; |
} elsif ($target eq 'tex') { |
} |
$result = '\footnote{'; |
|
} |
|
return $result; |
return $result; |
} |
} |
|
|
sub end_window { |
sub end_window { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$Apache::lonxml::outputstack =~ s/\"/\"\;/g; |
$Apache::lonxml::outputstack =~ s/\"/\"\;/g; |
$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>"; |
$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::outputstack = ""; |
$Apache::lonxml::redirection = 1; |
$Apache::lonxml::redirection = 1; |
} elsif ($target eq 'tex') { |
|
$result = '}'; |
|
} else { |
} else { |
$result = ''; |
$result = ''; |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
sub start_import { |
sub start_import { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my $bodytext=&Apache::lonxml::get_all_text("/import",$$parser[$#$parser]); |
my $bodytext=$$parser[$#$parser]->get_text("/import"); |
# my $bodytext=$$parser[$#$parser]->get_text("/import"); |
|
my $result =""; |
my $result =""; |
|
|
$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); |
$bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); |