Changeset fd65ddb in tol for tolbase/lib/byswidget/bodbc/bodbc.tcl

Timestamp:

Oct 30, 2008, 5:06:57 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

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

Children:

5930b07

Parents:

f752ef9

Message:

fixing bug 607, transforming method _OpenAlias, _ActivateAlias and _CloseAlias to the new tol::info var format

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

File:

• tolbase/lib/byswidget/bodbc/bodbc.tcl (modified) (3 diffs)

tolbase/lib/byswidget/bodbc/bodbc.tcl

@@ -464 +464 @@
       Real __dbopen_status__ = DBOpen("%A","%U","%P");
     }]
-    set status [lindex [tol::info variable Real __dbopen_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbopen_status__]] 0]
     tol::console stack release __dbopen_status__
     expr {$status>0.0}
@@ -473 +473 @@
       Real __dbact_status__ = DBActivate("%A");
     }]
-    set status [lindex [tol::info variable Real __dbact_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbact_status__]] 0]
     tol::console stack release __dbact_status__
     expr {$status>0.0}
@@ -482 +482 @@
       Real __dbclose_status__ = DBClose("%A");
     }]
-    set status [lindex [tol::info variable Real __dbclose_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbclose_status__]] 0]
     tol::console stack release __dbclose_status__
     expr {$status>0.0}