--- loncom/xml/style.pm 2001/03/26 17:32:30 1.10 +++ loncom/xml/style.pm 2001/03/26 20:41:55 1.11 @@ -70,14 +70,14 @@ sub styleparser { } for (my $i=0; $i<=$#keys; $i++) { - push @style_array,lc $keys[$i],$values[$i]; + push @style_array,$keys[$i],$values[$i]; } my %style_for_target = @style_array; # check printing - foreach $current_key (sort keys %style_for_target) { - &Apache::lonxml::debug("$current_key => $style_for_target{$current_key}\n"); - } +# foreach $current_key (sort keys %style_for_target) { +# &Apache::lonxml::debug("$current_key => $style_for_target{$current_key}\n"); +# } # return result return %style_for_target;