loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.5 and 1.6

version 1.5, 2000/08/03 19:34:11	version 1.6, 2000/08/07 21:26:21
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','parserlib'));	&Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
	'parserlib','import'));
}	}

sub start_script {	sub start_script {
Line 31 sub start_scriptlib {	Line 32 sub start_scriptlib {
my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");	my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
my $result ="";	my $result ="";
if ($target ne "edit" ) {	if ($target ne "edit" ) {
&Apache::run::run(&getfile($bodytext),$safeeval);	&Apache::run::run(&getfile("/home/httpd/html".$bodytext),$safeeval);
#print "ran $bodytext:<br>".&getfile($bodytext)."<br>";	#print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
} else {	} else {
$result="<textarea>$bodytext</textarea>\n";	$result="<textarea>$bodytext</textarea>\n";
Line 43 sub end_scriptlib {}	Line 44 sub end_scriptlib {}

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

sub end_parserlib {	sub end_parserlib {
}	}

	sub start_import {
	my ($target,$token,$parstack,$parser)=@_;
	my $bodytext=$$parser[$#$parser]->get_text("/import");
	print "going after".$bodytext."\n";
	my $file=&getfile("/home/httpd/html/".$bodytext);
	my $tempparser=HTML::TokeParser->new(\$file);
	push (@$parser,$tempparser);
	}

	sub end_import {
	}

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.5
changed lines
	Added in v.1.6