loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.4, 2000/06/29 20:18:44	version 1.5, 2000/07/20 15:37:54
Line 105 sub styleparser {	Line 105 sub styleparser {
}	}
}	}
$current_value =~ s/(\s)+/$1/g;	$current_value =~ s/(\s)+/$1/g;
if ($current_value ne ' ' and $current_value ne '' ) {	if ($current_value ne '' ) {
push (@value_style,lc $current_key,$current_value);	push (@value_style,lc $current_key,$current_value);
}	}
$current_key = '';	$current_key = '';
Line 113 sub styleparser {	Line 113 sub styleparser {
}	}
my %style_for_target = @value_style;	my %style_for_target = @value_style;
# check printing	# check printing
while (($current_key,$current_value) = each %style_for_target) {	# while (($current_key,$current_value) = each %style_for_target) {
print "$current_key => $current_value\n";	# print "$current_key => $current_value\n";
}	# }
# return result	# return result
return %style_for_target;	return %style_for_target;
}	}