[Tkabber-dev] [tclgpg commit] r53 - trunk

codesite-noreply at google.com codesite-noreply at google.com
Thu Feb 5 01:50:02 MSK 2009


Author: sgolovan
Date: Wed Feb  4 12:28:56 2009
New Revision: 53

Modified:
    trunk/ChangeLog
    trunk/tclgpg.tcl

Log:
	* tclgpg.tcl: Fixed indices of returned serialised arrays.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Wed Feb  4 12:28:56 2009
@@ -1,3 +1,7 @@
+2009-02-04  Sergei Golovan  <sgolovan at nes.ru>
+
+	* tclgpg.tcl: Fixed indices of returned serialised arrays.
+
  2009-01-30  Sergei Golovan  <sgolovan at nes.ru>

  	* Makefile.in: Switched from mpexpand to dtplite when generating

Modified: trunk/tclgpg.tcl
==============================================================================
--- trunk/tclgpg.tcl	(original)
+++ trunk/tclgpg.tcl	Wed Feb  4 12:28:56 2009
@@ -1688,7 +1688,11 @@
                  [lindex $state(sig:summary) 0] eq "green"} {
              lappend state(sig:summary) valid
          }
-        lappend state(signatures) [array get state sig:*]
+        set signature {}
+        foreach {key val} [array get state sig:*] {
+            lappend signature [string range $key 4 end] $val
+        }
+        lappend state(signatures) $signature
          array unset state sig:*
      }

@@ -1696,7 +1700,7 @@
      foreach s $state(signatures) {
          array unset sig
          array set sig $s
-        lappend statuses $sig(sig:status)
+        lappend statuses $sig(status)
      }
      set statuses [lsort -unique $statuses]
      switch -- [llength $statuses] {


More information about the Tkabber-dev mailing list