---
C4/Context.pm | 13 ++++++++++---
1 files changed, 10 insertions(+), 3 deletions(-)
diff --git a/C4/Context.pm b/C4/Context.pm
index 3144d30..20e5794 100644
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -26,8 +26,15 @@ BEGIN {
# "Note that fatalsToBrowser does not work with mod_perl version 2.0
and higher."
import CGI::Carp qw(fatalsToBrowser);
sub handle_errors {
- my $msg = shift;
- my $debug_level =
C4::Context->preference("DebugLevel");
+ my $msg = shift;
+ my $debug_level;
+ eval {C4::Context->dbh();};
+ if ($@){
+ $debug_level = 1;
+ }
+ else {
+ $debug_level =
C4::Context->preference("DebugLevel");
+ }
print q(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
@@ -626,7 +633,7 @@ sub _new_dbh
my $db_passwd = $context->config("pass");
# MJR added or die here, as we can't work without dbh
my $dbh=
DBI->connect("DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",
- $db_user, $db_passwd) or die $DBI::errstr;
+ $db_user, $db_passwd) or die $DBI::errstr;
if ( $db_driver eq 'mysql' ) {
# Koha 3.0 is utf-8, so force utf8 communication between mySQL and
koha, whatever the mysql default config.
# this is better than modifying my.cnf (and forcing all communications
to be in utf8)
--
1.5.4.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
