--- loncom/xml/style.pm 2001/03/26 17:32:30 1.10 +++ loncom/xml/style.pm 2001/03/27 16:57:54 1.12 @@ -62,6 +62,11 @@ sub styleparser { } } $current_value =~ s/\n//g; +########### +# $current_value =~ s/^\s*//g; +# $current_value =~ s/\s*$//g; +# $current_value =~ s/\( (\w)/($1/g; +########### push @values,$current_value; # &Apache::lonxml::debug("a:$current_value $#values \n"); $current_key = ''; @@ -70,14 +75,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;