version 1.115, 2004/08/18 20:48:45
|
version 1.120, 2004/10/12 23:26:48
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 2/21 Guy |
|
# 8/20 Gerd Kortemeyer |
|
|
|
package Apache::scripttag; |
package Apache::scripttag; |
|
|
Line 119 sub start_script {
|
Line 117 sub start_script {
|
($Apache::lonhomework::viewgrades == 'F')) { |
($Apache::lonhomework::viewgrades == 'F')) { |
$Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser(); |
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser(); |
$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.document.open('text/html','replace');newWindow.document.writeln('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><pre>"; |
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>"; |
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; |
Line 164 sub end_script {
|
Line 163 sub end_script {
|
|
|
sub start_display { |
sub start_display { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
@Apache::scripttag::parser_env = @_; |
my $result; |
my $result; |
|
|
if ( $target eq "modified" ) { |
if ( $target eq "modified" ) { |
Line 395 sub end_import {
|
Line 394 sub end_import {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
pop(@Apache::inputtags::import); |
pop(@Apache::inputtags::import); |
my $result; |
my $result; |
if ($target eq 'edit' ) { $result=&Apache::edit::end_table(); } |
if ($target eq 'edit' ) { $result=&Apache::edit::end_row. |
|
&Apache::edit::end_table(); } |
return $result; |
return $result; |
} |
} |
|
|