loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

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);