Return to scripttag.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.139, 2006/12/20 22:41:59 | version 1.140, 2007/01/23 21:28:41 |
---|---|
Line 126 sub start_script { | Line 126 sub start_script { |
my $end_page = | my $end_page = |
&Apache::loncommon::end_page({'js_ready' => 1,}); | &Apache::loncommon::end_page({'js_ready' => 1,}); |
$uname =~s/\W//g; | |
$udom =~s/\W//g; | |
$result.="<script type=\"text/javascript\"> | $result.="<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>"; |