--- loncom/xml/scripttag.pm 2000/08/03 19:34:11 1.5
+++ loncom/xml/scripttag.pm 2000/08/07 21:26:21 1.6
@@ -8,7 +8,8 @@ use strict;
use Apache::lonnet;
sub BEGIN {
- &Apache::lonxml::register('Apache::scripttag',('script','scriptlib','parserlib'));
+ &Apache::lonxml::register('Apache::scripttag',('script','scriptlib',
+ 'parserlib','import'));
}
sub start_script {
@@ -31,7 +32,7 @@ sub start_scriptlib {
my $bodytext=$$parser[$#$parser]->get_text("/scriptlib");
my $result ="";
if ($target ne "edit" ) {
- &Apache::run::run(&getfile($bodytext),$safeeval);
+ &Apache::run::run(&getfile("/home/httpd/html".$bodytext),$safeeval);
#print "ran $bodytext:
".&getfile($bodytext)."
";
} else {
$result="\n";
@@ -43,13 +44,26 @@ sub end_scriptlib {}
sub start_parserlib {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
- my $bodytext="/home/httpd/html/".$$parser[$#$parser]->get_text("/parserlib");
- %$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));
+ my $bodytext=$$parser[$#$parser]->get_text("/parserlib");
+ %$style = ( %$style , &Apache::style::styleparser($target,
+ &getfile("/home/httpd/html/".$bodytext)));
}
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 {
my ($filename) = @_;
my $a="";