--- loncom/xml/style.pm	2000/06/29 20:18:44	1.4
+++ loncom/xml/style.pm	2000/10/26 14:01:40	1.6
@@ -33,7 +33,13 @@ sub styleparser {
        while ($stoken = $pstyle->get_token and $stoken->[1] ne 'definetag') { 
 	    if ($stoken->[0] eq 'S' and $stoken->[1] eq 'meta') {
 	      while ($stoken = $pstyle->get_token and $stoken->[1] ne 'meta') {
-		   $current_value .= $stoken->[1];
+                   if ($stoken->[0] eq 'T') {	
+                            $current_value .= $stoken->[1];
+		   } elsif ($stoken->[0] eq 'S') {	
+                            $current_value .= $stoken->[4];
+		   } else {
+                            $current_value .= $stoken->[2];
+		   }
 	      }
 	    }
        }
@@ -105,7 +111,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 +119,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; 
 }