loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.19, 2003/09/22 13:01:57	version 1.20, 2003/11/09 01:14:30
Line 49 sub styleparser {	Line 49 sub styleparser {
my ($target,$content_style_string)=@_;	my ($target,$content_style_string)=@_;
my @keys = ();	my @keys = ();
my @values = ();	my @values = ();
my @style_array = ();
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);
Line 113 sub styleparser {	Line 112 sub styleparser {
}	}
}	}
}	}
	my %style_for_target;
for (my $i=0; $i<=$#keys; $i++) {	for (my $i=0; $i<=$#keys; $i++) {
push @style_array,$keys[$i],$values[$i];	if ($values[$i] !~ /^\s*$/) {
	$style_for_target{$keys[$i]}=$values[$i];
	}
}	}
my %style_for_target = @style_array;
return %style_for_target;	return %style_for_target;
}	}