blob: 02edd6c630257de2c60d32a888ef49f91bbdb6ce (
plain) (
tree)
|
|
--- ../neowebscript/db.tcl Fri Nov 19 19:36:10 1999
+++ ../neowebscript/db.tcl Mon Sep 3 14:02:50 2001
@@ -6,6 +6,8 @@
# for the trusted interp
#
+package require Neo
+
proc dbtransaction {code args} {
global errorCode parallelDir webenv
@@ -115,7 +117,7 @@
if {[catch {db open $dbFileName hash cl 0664} db] == 1} {
create_user_dir db
if {[catch {db open $dbFileName hash cl 0664} db] == 1} {
- return -code error "$dbFileName: $errorCode" $errorInfo
+ return -code error "$dbFileName: $errorCode $errorInfo"
}
}
@@ -271,7 +273,7 @@
if {[catch {db open $dbFileName hash cl 0664} db] == 1} {
create_user_dir db
if {[catch {db open $dbFileName hash cl 0664} db] == 1} {
- return -code error "$dbFileName: $errorCode" $errorInfo
+ return -code error "$dbFileName: $errorCode $errorInfo"
}
}
|