Changeset 944

Timestamp:

03/07/2008 05:08:08 (3 months ago)

Author:

james

Message:

more array/dummy fixes

Files:

• trunk/modules/abstract.tcl (modified) (4 diffs)

trunk/modules/abstract.tcl

@@ -81 +81 @@
 
 if {![info exists bMotion_abstract_contents]} {
-  set bMotion_abstract_contents(dummy) ""
-  set bMotion_abstract_languages(dummy) "en"
-  set bMotion_abstract_timestamps(dummy) 1
+  array set bMotion_abstract_contents {}
+  array set bMotion_abstract_languages {}
+  array set bMotion_abstract_timestamps {}
   set bMotion_abstract_ondisk [list]
-        set bMotion_abstract_last_get(dummy) ""
-        set bMotion_abstract_filters(dummy) ""
+        array set bMotion_abstract_last_get {}
+        array set bMotion_abstract_filters {}
 }
 
@@ -452 +452 @@
   foreach abstract $abstracts {
     set storedLang $bMotion_abstract_languages($abstract)
-    if { $abstract != "dummy" && $storedLang == $lang } {
+    if { $storedLang == $lang } {
       bMotion_abstract_save $abstract
       unset bMotion_abstract_contents($abstract)
@@ -458 +458 @@
     }
   }
-  set bMotion_abstract_contents(dummy) ""
-  set bMotion_abstract_languages(dummy) ""
-  set bMotion_abstract_timestamps(dummy) 1
+  array set bMotion_abstract_contents {}
+  array set bMotion_abstract_languages {}
+  array set bMotion_abstract_timestamps {}
   set bMotion_abstract_ondisk [list]
 }
@@ -612 +612 @@
 
         unset bMotion_abstract_filters
-        set bMotion_abstract_filters(dummy) ""
+        array set bMotion_abstract_filters {}
 }