db_abort_transaction_p (private)

 db_abort_transaction_p [ -dbn dbn ]

Defined in packages/acs-tcl/tcl/01-database-procs.tcl

Switches:
-dbn (optional)
The database name to use. If empty_string, uses the default database.

Partial Call Graph (max 5 caller/called nodes):
%3 db_transaction db_transaction (public) db_abort_transaction_p db_abort_transaction_p db_transaction->db_abort_transaction_p db_state_array_name_is db_state_array_name_is (private) db_abort_transaction_p->db_state_array_name_is db_with_handle db_with_handle (public) db_abort_transaction_p->db_with_handle

Testcases:
No testcase defined.
Source code:
    upvar "#0" [db_state_array_name_is -dbn $dbn] db_state

    db_with_handle -dbn $dbn db {
        if { [info exists db_state(db_abort_p,$db)] } {
            return $db_state(db_abort_p,$db)
        } else {
            # No abort flag registered, so we assume everything is ok.
            return 0
        }
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: