loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.3, 2000/07/25 21:28:22	version 1.4, 2000/08/02 16:47:53
Line 8 use strict;	Line 8 use strict;
use Apache::lonnet;	use Apache::lonnet;

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

sub start_script {	sub start_script {
Line 41 sub start_scriptlib {	Line 41 sub start_scriptlib {

sub end_scriptlib {}	sub end_scriptlib {}

	sub start_parserlib {
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	my $bodytext="/home/httpd/html/".$parser->get_text("/parserlib");
	%$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));
	}

	sub end_parserlib {
	}

sub getfile {	sub getfile {
my ($filename) = @_;	my ($filename) = @_;
my $a="";	my $a="";