fixed typo in 018 DB change

[koha_fer] / C4 / Context.pm

diff --git a/C4/Context.pm b/C4/Context.pm
index 876a3f4..d238d97 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -17,9 +17,10 @@ package C4::Context;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use Data::Dumper;
 
 BEGIN {
-       if ($ENV{'USER_AGENT'}) {
+       if ($ENV{'HTTP_USER_AGENT'})    {
                require CGI::Carp;
                import CGI::Carp qw(fatalsToBrowser);
                        sub handle_errors {
@@ -423,10 +424,7 @@ sub preference
     my $self = shift;
     my $var = shift;        # The system preference to return
     my $retval;            # Return value
-    my $dbh = C4::Context->dbh;    # Database handle
-    if ($dbh){
-    my $sth;            # Database query handle
-
+    my $dbh = C4::Context->dbh or return 0;
     # Look up systempreferences.variable==$var
     $retval = $dbh->selectrow_array(<<EOT);
         SELECT    value
@@ -435,9 +433,6 @@ sub preference
         LIMIT    1
 EOT
     return $retval;
-    } else {
-      return 0
-    }
 }
 
 sub boolean_preference ($) {