|
version 1.44, 2001/07/09 04:10:30
|
version 1.45, 2001/07/11 14:44:37
|
|
Line 123 sub start_parserlib {
|
Line 123 sub start_parserlib {
|
| my $bodytext; |
my $bodytext; |
| my $result =""; |
my $result =""; |
| my $error=''; |
my $error=''; |
| |
|
| if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') { |
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || $target eq 'edit') { |
| $bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
| $bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
|
Line 217 sub start_import {
|
Line 216 sub start_import {
|
| } |
} |
| |
|
| sub end_import { |
sub end_import { |
| |
return ''; |
| } |
} |
| |
|
| sub start_meta { |
sub start_meta { |
|
Line 252 sub end_storetc {
|
Line 252 sub end_storetc {
|
| |
|
| |
|
| sub start_physnet { |
sub start_physnet { |
| |
|
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
| my $cbistylefile = &Apache::lonnet::getfile('/home/httpd/res/msu/physnet/cbi.sty'); |
my $bodytext = '/msu/physnet/cbi.sty'; |
| %$style = (%$style,&Apache::style::styleparser($target,$cbistylefile)); |
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'}) ) { |
if ( defined($$style{'physnet'}) ) { |
| &Apache::lonxml::newparser($parser,$$style{'physnet'}); |
&Apache::lonxml::newparser($parser,\$$style{'physnet'}); |
| } |
} |
| |
return ""; |
| |
} |
| |
|
| return ''; |
sub end_physnet { |
| } |
} |
| |
|
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to scripttag.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml