modules/damieng/clean_xml/post_xml.pm - diff

Return to post_xml.pm CVS log

Up to [LON-CAPA] / modules / damieng / clean_xml

version 1.2, 2015/04/27 18:04:40	version 1.4, 2015/05/22 19:50:46
Line 838 sub fix_fonts {	Line 838 sub fix_fonts {
$replacement = $doc->createElement('span');	$replacement = $doc->createElement('span');
my $css = '';	my $css = '';
if (defined $color) {	if (defined $color) {
$color =~ s/^x//;	$color =~ s/^x/#/;
$properties{'color'} = $color;	$properties{'color'} = $color;
}	}
if (defined $size) {	if (defined $size) {
Line 2516 sub trim {	Line 2516 sub trim {
##	##
sub string_in_array {	sub string_in_array {
my ($array, $value) = @_;	my ($array, $value) = @_;
	# NOTE: would it be faster to use "any { $value eq $_ } @{$array}" from List::Util ?
foreach my $v (@{$array}) {	foreach my $v (@{$array}) {
if ($v eq $value) {	if ($v eq $value) {
return 1;	return 1;