Changeset 227444a in tol for tolbase

Timestamp:

Jun 22, 2010, 10:39:59 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

827eb3c

Parents:

f9df9b6

Message:

closes #720, tol::tableset needed updating to new object's reference

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2300 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tolbase/lib/byswidget

Files:

• bchilddetail/bchilddetail.tcl (modified) (3 diffs)
• beditmaster/beditmaster.tcl (modified) (3 diffs)

tolbase/lib/byswidget/bchilddetail/bchilddetail.tcl

@@ -2523 +2523 @@
       return {}   
     }    
-    ::tol::tableset create $cmdIC $infoColumns
+    ::tol::tableset create $cmdIC [list Set $infoColumns]
   
     # Obtenemos informacion de las foregn keys
@@ -2539 +2539 @@
     set nRegFk [lindex [TclGetFromSet Set $infoForeignKeys] 0]
     if {[expr $nRegFk > 0]} {
-      ::tol::tableset create $cmdIF $infoForeignKeys
+      ::tol::tableset create $cmdIF [list Set $infoForeignKeys]
     }  
 #Tolcon_Trace "EditMasterUtils::InitTable. nRegFk: $nRegFk"
@@ -2761 +2761 @@
         return {}    
       }      
-      ::tol::tableset create $cmdIC $infoColumns    
+      ::tol::tableset create $cmdIC [list Set $infoColumns]
     
       # recorremos la tabla en busca de un valor coincidente

tolbase/lib/byswidget/beditmaster/beditmaster.tcl

@@ -2113 +2113 @@
       return {}   
     }    
-    ::tol::tableset create $cmdIC $infoColumns
+    ::tol::tableset create $cmdIC [list Set $infoColumns]
   
     # Obtenemos informacion de las foregn keys
@@ -2131 +2131 @@
     set nRegFk [lindex [TclGetFromSet Set $infoForeignKeys] 0]
     if {[expr $nRegFk > 0]} {
-      ::tol::tableset create $cmdIF $infoForeignKeys
+      ::tol::tableset create $cmdIF [list Set $infoForeignKeys]
     }  
 #Tolcon_Trace "EditMasterUtils::InitTable. nRegFk: $nRegFk"
@@ -2354 +2354 @@
         return {}    
       }      
-      ::tol::tableset create $cmdIC $infoColumns    
+      ::tol::tableset create $cmdIC [list Set $infoColumns]
     
       # recorremos la tabla en busca de un valor coincidente