![[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|
Return to scripttag.pm CVS log | Up to [LON-CAPA] / loncom / xml |
| version 1.127, 2005/06/05 07:28:31 | version 1.128, 2005/06/06 01:29:45 |
|---|---|
| Line 122 sub start_script { | Line 122 sub start_script { |
| // <![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('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><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('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><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/\n/\\n/g; | |
| $listing=~s/\r/\\r/g; | |
| $result.=$listing; | $result.=$listing; |
| $result.= "</pre></body></html>');newWindow.document.close();newWindow.focus()} | $result.= "</pre></body></html>');newWindow.document.close();newWindow.focus()} |
| // ]]> | // ]]> |