--- loncom/xml/style.pm	2003/09/19 17:46:59	1.18
+++ loncom/xml/style.pm	2003/09/22 13:01:57	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Style Parser Module (new version)
 #
-# $Id: style.pm,v 1.18 2003/09/19 17:46:59 sakharuk Exp $
+# $Id: style.pm,v 1.19 2003/09/22 13:01:57 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,14 +78,14 @@ sub styleparser {
 	    $allow=0;
 	} elsif (($target ne 'meta') && ($target ne 'tex') && ($stoken->[0] eq 'E') && ($stoken->[1] eq 'tex')) {
 	    $allow=1;
-	} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'} ne $target)) {
+	} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && (not $stoken->[2]->{'name'}=~/(^\s*$target\s*,|,\s*$target\s*,|,\s*$target\s*$|^\s*$target\s*$)/)) {
 	    $allow=0;
 	} elsif (($stoken->[0] eq 'E') && ($stoken->[1] eq 'target')) {
 	    $allow=1;
  	} elsif (($target ne 'meta') && ($stoken->[0] eq 'S') && ($stoken->[1] eq $target)) {
 	    $allow=1;
 	} elsif (($target ne 'meta') && ($stoken->[0] eq 'E') && ($stoken->[1] eq $target)) {
-	} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'} eq $target)) {
+	} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'}=~/(^\s*$target\s*,|,\s*$target\s*,|,\s*$target\s*$|^\s*$target\s*$)/)) {
 	    $allow=1;
 	} elsif ($allow) { 
 	    if ($stoken->[0] eq 'T') {