--- loncom/xml/style.pm 2000/06/29 20:18:44 1.4 +++ loncom/xml/style.pm 2000/07/20 15:37:54 1.5 @@ -105,7 +105,7 @@ sub styleparser { } } $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); } $current_key = ''; @@ -113,9 +113,9 @@ sub styleparser { } my %style_for_target = @value_style; # check printing - while (($current_key,$current_value) = each %style_for_target) { - print "$current_key => $current_value\n"; - } +# while (($current_key,$current_value) = each %style_for_target) { +# print "$current_key => $current_value\n"; +# } # return result return %style_for_target; }