version 1.86, 2003/02/24 23:32:32
|
version 1.87, 2003/05/13 20:41:08
|
Line 96 sub start_script {
|
Line 96 sub start_script {
|
|
|
$result.=$listing; |
$result.=$listing; |
$result.= "</pre></body></html>\');newWindow.document.close();void(0);\">Script Vars</a><br />"; |
$result.= "</pre></body></html>\');newWindow.document.close();void(0);\">Script Vars</a><br />"; |
|
if ($ENV{'form.print_answer'} eq 'yes') {$result='';} |
} |
} |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
#&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |
Line 308 sub start_import {
|
Line 309 sub start_import {
|
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
if (!$id) { $id=$Apache::lonxml::curdepth; } |
if (!$id) { $id=$Apache::lonxml::curdepth; } |
push(@Apache::inputtags::import,$id); |
push(@Apache::inputtags::import,$id); |
&Apache::lonxml::newparser($parser,\$file,$dir); |
|
|
&Apache::lonxml::newparser($parser,\$file,$dir); |
|
|
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::editline($token->[1],$bodytext,'',40); |
$result.=&Apache::edit::editline($token->[1],$bodytext,'',40); |