--- loncom/xml/scripttag.pm 2000/07/25 21:28:22 1.3 +++ loncom/xml/scripttag.pm 2000/08/02 16:47:53 1.4 @@ -8,7 +8,7 @@ use strict; use Apache::lonnet; sub BEGIN { - &Apache::lonxml::register('Apache::scripttag',('script','scriptlib')); + &Apache::lonxml::register('Apache::scripttag',('script','scriptlib','parserlib')); } sub start_script { @@ -41,6 +41,15 @@ sub start_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 { my ($filename) = @_; my $a="";