|
version 1.120, 2004/10/12 23:26:48
|
version 1.121, 2005/02/18 05:38:05
|
|
Line 118 sub start_script {
|
Line 118 sub start_script {
|
| $Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
| my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser(); |
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser(); |
| my $windowopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen(); |
| $result.="<script type=\"text/javascript\"> 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>"; |
$result.="<script type=\"text/javascript\"> |
| |
// <!-- |
| |
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/\n/\\n/g; |
$listing=~s/\n/\\n/g; |
| $listing=~s/\r/\\r/g; |
$listing=~s/\r/\\r/g; |
| $result.=$listing; |
$result.=$listing; |
| $result.= "</pre></body></html>');newWindow.document.close();}</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
$result.= "</pre></body></html>');newWindow.document.close();} |
| |
// --> |
| |
</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
| } |
} |
| } 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