loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.10, 2000/07/14 19:11:03	version 1.12, 2000/07/20 15:37:54
Line 18 sub register {	Line 18 sub register {
$Apache::lonxml::alltags{$temptag}=$space;	$Apache::lonxml::alltags{$temptag}=$space;
}	}
}	}

use Apache::style;	use Apache::style;
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::run;	use Apache::run;
Line 106 sub xmlparse {	Line 106 sub xmlparse {
my @innerstack = ();	my @innerstack = ();
my @innerparstack = ();	my @innerparstack = ();
$newarg = $style_for_target{'/'."$token->[1]"};	$newarg = $style_for_target{'/'."$token->[1]"};

	# print "qqq: $token->[1],$newarg\n";

my $pat = HTML::TokeParser->new(\$newarg);	my $pat = HTML::TokeParser->new(\$newarg);
my $tokenpat;	my $tokenpat;
my $partstring = '';	my $partstring = '';

while ($tokenpat = $pat->get_token) {	while ($tokenpat = $pat->get_token) {
if ($tokenpat->[0] eq 'T') {	if ($tokenpat->[0] eq 'T') {
$partstring .= $tokenpat->[1];	$partstring = $tokenpat->[1];
} elsif ($tokenpat->[0] eq 'S') {	} elsif ($tokenpat->[0] eq 'S') {
push (@innerstack,$tokenpat->[1]);	push (@innerstack,$tokenpat->[1]);
push (@innerparstack,&parstring($tokenpat));	push (@innerparstack,&parstring($tokenpat));
Line 176 sub parstring {	Line 179 sub parstring {
}	}
1;	1;
__END__	__END__