From e8c27acc29a1b899e24526c7962091face6b66e4 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 15 Nov 2006 05:12:00 +0000
Subject: Adding more psql error detection stuff

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@616 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/User.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB/User.pm')

diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index ee870d7c..5e06a2e0 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -458,7 +458,10 @@ sub process_query {
 	$ENV{PGDATABASE} = $form->{db};
 	
 	$results = `psql -f $filename 2>&1`;
-	if ($? or ($results =~ /error/i)){
+	if ($?){
+		$form->error($!);
+	}
+ 	elsif ($results =~ /error/i){
 		$form->error($results);
 	}
 }
-- 
cgit v1.2.3