Changeset 11490 for trunk/ippMonitor/generate

Timestamp:

Jan 31, 2007, 11:20:53 AM (19 years ago)

Author:

eugene

Message:

update to use the new database columns

File:

• trunk/ippMonitor/generate (modified) (1 diff)

trunk/ippMonitor/generate

@@ -338 +338 @@
                 if ($field[$i] eq "*") { next; }
                 if ($value =~ m|^\$$field[$i]|) {
+                    # print "field: $field[$i]\n";
+                    ($name, $extra) = $value =~ m|^\$($field[$i])\@(\S+)|;
+                    # print "name: $name\n";
+                    # print "extra: $extra\n";
+                    # print "value: $value\n";
+
                     $Nrow = $count[$i];
-                    $value = "\$row[$Nrow]";
+                    if ($extra) {
+                        $value = "\$row[$Nrow]\@$extra";
+                    } else {
+                        $value = "\$row[$Nrow]";
+                    }
+                    # print "outval: $value\n";
                     last MATCH_LABEL;
                 }