Changeset 3394 for trunk/gui/scripts/flowvisviewer.tcl

Timestamp:

Feb 28, 2013 11:37:18 AM (11 years ago)

Author:

gah

Message:

fix up stats reporting in servers

File:

• trunk/gui/scripts/flowvisviewer.tcl (modified) (4 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -1231 +1231 @@
     foreach dataobj [get] {
         foreach comp [$dataobj components] {
+            set tag $dataobj-$comp
             # Send the data as one huge base64-encoded mess -- yuck!
             set data [$dataobj blob $comp]
@@ -1242 +1243 @@
                 lappend info "dataset_label" [$dataobj hints label]
                 lappend info "dataset_size"  $nbytes
+                lappend info "dataset_tag"   $tag
                 SendCmd "clientinfo [list $info]"
             }
@@ -1247 +1249 @@
             # I have a field. Is a vector field or a volume field?
             if { $extents == 1 } {
-                set cmd "volume data follows $nbytes $dataobj-$comp\n"
+                set cmd "volume data follows $nbytes $tag\n"
             } else {
                 set cmd [FlowCmd $dataobj $comp $nbytes $extents]
@@ -1258 +1260 @@
             append _outbuf $data
             NameTransferFunc $dataobj $comp
-            set _recvObjs($dataobj-$comp) 1
+            set _recvObjs($tag) 1
         }
     }