loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.20, 2003/11/09 01:14:30	version 1.21, 2004/01/21 13:03:29
Line 52 sub styleparser {	Line 52 sub styleparser {
my $current_value;	my $current_value;
my $allow=0;	my $allow=0;
my $pstyle = HTML::TokeParser->new(\$content_style_string);	my $pstyle = HTML::TokeParser->new(\$content_style_string);
	$pstyle->xml_mode('1');
while (my $stoken = $pstyle->get_token) {	while (my $stoken = $pstyle->get_token) {
if (($stoken->[0] eq 'S') && ($stoken->[1] eq 'definetag')) {	if (($stoken->[0] eq 'S') && ($stoken->[1] eq 'definetag')) {
push @keys,$stoken->[2]->{'name'};	push @keys,$stoken->[2]->{'name'};