Index: trunk/ippMonitor/generate
===================================================================
--- trunk/ippMonitor/generate	(revision 13595)
+++ trunk/ippMonitor/generate	(revision 13725)
@@ -85,5 +85,5 @@
 	# the TD_CLASS command sets up an alternate TD class
 	if ($key eq "TD_CLASS") {
-	    $tdClass = $value;
+	    push @tdClasses, $value;
 	    # print STDERR "found TD_CLASS\n";
 	}
@@ -242,15 +242,21 @@
     my ($field, $testline);
 
-    if ($tdClass eq "") { return; }
-    # print STDERR "write TD CLASS: $tdClass...\n";
-
-    # TD_CLASS class field expression
-    ($class, $field, $testline) = split (" ", $tdClass, 3);
-
-    $field = &parse_fieldname ($field);
-
-    printf FILE "  if ($field $testline) {\n";
-    printf FILE "    \$class = \"$class\";\n";
-    printf FILE "  }\n";
+    if (@tdClasses == 0) { return; }
+    foreach $tdClass (@tdClasses) {
+	print STDERR "write TD CLASS: $tdClass...\n";
+
+	# TD_CLASS class field expression
+	($class, $field, $testline) = split (" ", $tdClass, 3);
+
+	$field = &parse_fieldname ($field);
+
+	printf FILE "  if ($field $testline) {\n";
+	printf FILE "    \$class = \"$class\";\n";
+	printf FILE "  }\n";
+
+	printf STDERR "  if ($field $testline) {\n";
+	printf STDERR "    \$class = \"$class\";\n";
+	printf STDERR "  }\n";
+    }
 }