|
version 1.140, 2007/01/23 21:28:41
|
version 1.141, 2007/06/11 20:52:40
|
|
Line 128 sub start_script {
|
Line 128 sub start_script {
|
| |
|
| $uname =~s/\W//g; |
$uname =~s/\W//g; |
| $udom =~s/\W//g; |
$udom =~s/\W//g; |
| $result.="<script type=\"text/javascript\"> |
my $script_var ="<script type=\"text/javascript\"> |
| // <![CDATA[ |
// <![CDATA[ |
| function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>"; |
function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.$windowopen;newWindow.document.writeln('$start_page<pre>"; |
| my $listing=&Apache::run::dump($target,$safeeval); |
my $listing=&Apache::run::dump($target,$safeeval); |
| $listing=~s/\\/\\\\/g; |
$listing=~s/\\/\\\\/g; |
| $listing=~s/\'/\\\'/g; |
$listing=~s/\'/\\\'/g; |
| $result.=$listing; |
$script_var.=$listing; |
| $result.= "<\\/pre>$end_page');newWindow.document.close();newWindow.focus()} |
$script_var.= "<\\/pre>$end_page');newWindow.document.close();newWindow.focus()} |
| // ]]> |
// ]]> |
| </script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
| |
&Apache::lonxml::add_script_result($script_var); |
| } |
} |
| } elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
| #&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |
![[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