--- loncom/xml/scripttag.pm 2001/07/06 21:54:10 1.43 +++ loncom/xml/scripttag.pm 2001/07/11 14:44:37 1.45 @@ -123,7 +123,6 @@ sub start_parserlib { my $bodytext; my $result =""; my $error=''; - if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') { $bodytext=$$parser[$#$parser]->get_text("/parserlib"); $bodytext=&Apache::run::evaluate($bodytext,$safeeval, @@ -217,6 +216,7 @@ sub start_import { } sub end_import { + return ''; } sub start_meta { @@ -252,15 +252,21 @@ sub end_storetc { sub start_physnet { - my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - my $cbistylefile = &Apache::lonnet::getfile('/home/httpd/res/msu/physnet/cbi.sty'); - %$style = (%$style,&Apache::style::styleparser($target,$cbistylefile)); - &Apache::lonxml::newparser($parser$$style{'physnet'}); - + my $bodytext = '/msu/physnet/cbi.sty'; + my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); + my $cbistyletext=&Apache::lonnet::getfile($location); + + %$style = (%$style,&Apache::style::styleparser($target,$cbistyletext)); + if ( defined($$style{'physnet'}) ) { + &Apache::lonxml::newparser($parser,\$$style{'physnet'}); + } return ""; } +sub end_physnet { +} + 1; __END__