Help for this page

Select Code to Download

Select or download this

        $loc_sth=$gl_dbh9->prepare($loc_sql_string) or report_die_db( 
+"Can't prepare sql statement" . DBI->errstr.":\n SQL is: $loc_sql_str
+ing", (caller(0))[0]. ":".(caller(0))[1]. ":".(caller(0))[2]);

Select or download this

sub report_die_db{
#
...
    die "DB Error" . DBI->errstr;
}