|
version 1.126, 2005/04/07 06:56:27
|
version 1.129, 2005/06/27 21:01:58
|
|
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();} |
$result.= "</pre></body></html>');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 />"; |
| } |
} |
|
Line 314 sub start_window {
|
Line 313 sub start_window {
|
| $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
| } elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
| my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
| $safeeval,'linttext', |
$safeeval,'linktext', |
| 'width','height'); |
'width','height'); |
| if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); } |
if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); } |
| } |
} |
![[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