loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.2, 2000/07/14 16:55:46	version 1.3, 2000/07/25 21:28:22
Line 5	Line 5
package Apache::scripttag;	package Apache::scripttag;

use strict;	use strict;
	use Apache::lonnet;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::scripttag',('script'));	&Apache::lonxml::register('Apache::scripttag',('script','scriptlib'));
}	}

sub start_script {	sub start_script {
Line 16 sub start_script {	Line 17 sub start_script {
my $result="";	my $result="";
my $bodytext=$parser->get_text("/script");	my $bodytext=$parser->get_text("/script");
if ($target ne "edit" ) {	if ($target ne "edit" ) {
&Apache::run::run($bodytext,$safeeval);	$result = &Apache::run::run($bodytext,$safeeval);
} else {	} else {
$result="<textarea>$bodytext</textarea>\n";	$result="<textarea>$bodytext</textarea>\n";
}	}
return $result;	return $result;
}	}

sub end_script {	sub end_script {}
my ($target,$token,@parstack)=@_;
	sub start_scriptlib {
	my ($target,$token,$parstack,$parser,$safeeval)=@_;
	my $bodytext=$parser->get_text("/scriptlib");
	my $result ="";
	if ($target ne "edit" ) {
	&Apache::run::run(&getfile($bodytext),$safeeval);
	#print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
	} else {
	$result="<textarea>$bodytext</textarea>\n";
	}
	return $result;
	}

	sub end_scriptlib {}

	sub getfile {
	my ($filename) = @_;
	my $a="";
	&Apache::lonnet::repcopy($filename);
	{
	my $fh=Apache::File->new($filename);
	while (<$fh>) {
	$a .=$_;
	}
	}
	return $a
}	}

1;	1;
__END__	__END__