loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.11, 2000/07/18 21:27:10	version 1.12, 2000/07/20 15:37:54
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 156 sub callsub {	Line 159 sub callsub {
$sub="$space\:\:$sub";	$sub="$space\:\:$sub";
$currentstring = &$sub($target,$token,\@$parstack,$parser,$safeeval);	$currentstring = &$sub($target,$token,\@$parstack,$parser,$safeeval);
} else {	} else {
print "NOT Calling sub $sub\n";	#print "NOT Calling sub $sub\n";
if (defined($token->[4])) {	if (defined($token->[4])) {
$currentstring = $token->[4];	$currentstring = $token->[4];
} else {	} else {