[wiaflos-devel] COMMIT - r271 - trunk/wiaflos/server

[svn at linuxrulz.org]

Author: nkukard
Date: 2008-12-30 07:46:08 +0000 (Tue, 30 Dec 2008)
New Revision: 271

Modified:
   trunk/wiaflos/server/Reporting.pm
Log:
* Added more verbose errors while reporting


Modified: trunk/wiaflos/server/Reporting.pm
===================================================================
--- trunk/wiaflos/server/Reporting.pm	2008-12-30 07:39:52 UTC (rev 270)
+++ trunk/wiaflos/server/Reporting.pm	2008-12-30 07:46:08 UTC (rev 271)
@@ -269,7 +269,7 @@
 		
 		my $entries = getAccountBalances($flags,$search);
 		if (ref($entries) ne "ARRAY") {
-			wiaflos::server::templating::abort('api_account_balances',$entries);
+			wiaflos::server::templating::abort('api_account_balances',$entries,Error());
 		}
 
 		our @accountList = ();
@@ -400,7 +400,7 @@
 		# Get account data
 		my $accounts = wiaflos::server::GL::getGLAccounts();
 		if (ref($accounts) ne "ARRAY") {
-			wiaflos::server::templating::abort('api_gl_transactions',$accounts);
+			wiaflos::server::templating::abort('api_gl_transactions',$accounts,wiaflos::server::GL::Error());
 		}
 		# Sort based on account number
 		@{$accounts} = sort { $a->{'Number'} cmp $b->{'Number'} } @{$accounts};
@@ -477,7 +477,7 @@
 		$tmp->{'AccountNumber'} = $detail->{'GLAccountNumber'};
 		my $account = wiaflos::server::GL::getGLAccount($tmp);
 		if (ref($account) ne "HASH") {
-			wiaflos::server::templating::abort('api_account_entries',$account);
+			wiaflos::server::templating::abort('api_account_entries',$account,wiaflos::server::GL::Error());
 		}
 		$resdata->{'Account'} = $account;
 	
@@ -488,7 +488,7 @@
 		$tmp->{'BalanceBroughtForward'} = 1;
 		my $res = wiaflos::server::GL::getGLAccountEntries($tmp);
 		if (ref($res) ne "ARRAY") {
-			wiaflos::server::templating::abort('api_account_entries',$res);
+			wiaflos::server::templating::abort('api_account_entries',$res,wiaflos::server::GL::Error());
 		}
 
 		# Sort so our balance makes sense		
@@ -542,7 +542,7 @@
 		$tmp->{'EndDate'} = $detail->{'EndDate'};
 		my $res = wiaflos::server::Inventory::getInventoryStockBalance($tmp);
 		if (ref($res) ne "HASH") {
-			wiaflos::server::templating::abort('api_inventory_stock_balances',$res);
+			wiaflos::server::templating::abort('api_inventory_stock_balances',$res,wiaflos::server::Inventory::Error());
 		}
 
 		# Work out closing balance