|
version 1.20, 2000/10/10 18:18:26
|
version 1.22, 2000/10/30 20:34:25
|
|
Line 25 sub start_script {
|
Line 25 sub start_script {
|
| $Apache::scripttag::SCRIPT_RESULT=''; |
$Apache::scripttag::SCRIPT_RESULT=''; |
| if ($type eq "loncapa/perl") { |
if ($type eq "loncapa/perl") { |
| $safeeval->share('$SCRIPT_RESULT'); |
$safeeval->share('$SCRIPT_RESULT'); |
| my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]); |
my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]); |
| |
|
| if ( $target eq "modified" ) { |
if ( $target eq "modified" ) { |
| } |
} |
|
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/\"/\"\;/g; |
$Apache::lonxml::outputstack =~ s/\"/\"\;/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; |
![[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