Changeset fc11f2e in tol

Timestamp:

Jun 12, 2009, 1:45:30 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

c4a04bf

Parents:

2dcd670

Message:

Ensuring connection is not in _.allConnections before to add it

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

File:

• tol/stdlib/data/db/_db_connect.tol (modified) (1 diff)

tol/stdlib/data/db/_db_connect.tol

@@ -120 +120 @@
       Real _.isOpen    = false
     ]];
-    Set Append(_.allConnections, [[ Eval("NameBlock "+alias+"=dbc") ]]);
-    _.allConnections[Card(_.allConnections)]
+    Real If(!ObjectExist("NameBlock","_.allConnections::"+alias),
+    { 
+      Set Append(_.allConnections, [[ Eval("NameBlock "+alias+"=dbc") ]]);
+      Real SetIndexByName(_.allConnections)
+    });
+    Eval("_.allConnections::"+alias)
   };