loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.172, 2014/08/25 00:20:19	version 1.172.2.1, 2015/04/06 16:55:46
Line 645 sub end_storetc {	Line 645 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 $bodytext = '/adm/includes/physnet.sty';	my $bodytext = '/res/adm/includes/physnet.sty';
my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);	my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
my $cbistyletext=&Apache::lonnet::getfile($location);	my $cbistyletext=&Apache::lonnet::getfile($location);

%$style = (%$style,&Apache::style::styleparser($target,$cbistyletext));	%$style = (%$style,&Apache::style::styleparser($target,$cbistyletext));
$$parser['-1']->unget_token($token);	if (keys(%$style) && (($target eq 'web') \|\| ($target eq 'tex'))) {
	$$parser['-1']->unget_token($token);
	}
# if ( defined($$style{'physnet'}) ) {	# if ( defined($$style{'physnet'}) ) {
# &Apache::lonxml::newparser($parser,\$$style{'physnet'});	# &Apache::lonxml::newparser($parser,\$$style{'physnet'});
# }	# }