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

[svn at linuxrulz.org]

Author: nkukard
Date: 2008-08-17 18:50:37 +0000 (Sun, 17 Aug 2008)
New Revision: 240

Modified:
   trunk/wiaflos/server/Purchasing.pm
Log:
* HACK: allow linking of supplier invoice items as assets


Modified: trunk/wiaflos/server/Purchasing.pm
===================================================================
--- trunk/wiaflos/server/Purchasing.pm	2008-08-17 13:59:29 UTC (rev 239)
+++ trunk/wiaflos/server/Purchasing.pm	2008-08-17 18:50:37 UTC (rev 240)
@@ -686,7 +686,8 @@
 		}
 
 		# Check fincat
-		my $catMatch = wiaflos::server::GL::checkGLAccountFinCat($GLAccID,"E01");
+		my $catMatch = wiaflos::server::GL::checkGLAccountFinCat($GLAccID,"E01") || wiaflos::server::GL::checkGLAccountFinCat($GLAccID,"A01");
+
 		if ($catMatch == 0) {
 			setError("Expense GL account '".$detail->{'GLAccountNumber'}."' is not of type expense when linking item to supplier invoice '".
 					$invoice->{'Number'}."'");