--- loncom/xml/style.pm	2001/03/26 17:32:30	1.10
+++ loncom/xml/style.pm	2001/11/29 19:03:58	1.13
@@ -1,6 +1,41 @@
 # The LearningOnline Network with CAPA
 # Style Parser Module (new version)
 #
+# $Id: style.pm,v 1.13 2001/11/29 19:03:58 www Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
+# Copyright for TtHfunc and TtMfunc by Ian Hutchinson. 
+# TtHfunc and TtMfunc (the "Code") may be compiled and linked into 
+# binary executable programs or libraries distributed by the 
+# Michigan State University (the "Licensee"), but any binaries so 
+# distributed are hereby licensed only for use in the context
+# of a program or computational system for which the Licensee is the 
+# primary author or distributor, and which performs substantial 
+# additional tasks beyond the translation of (La)TeX into HTML.
+# The C source of the Code may not be distributed by the Licensee
+# to any other parties under any circumstances.
+#
 # written 01/08/01 by Alexander Sakharuk
 #
 
@@ -62,6 +97,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 +110,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;