SF.net SVN: ledger-smb:[3286] trunk

[..hidden..]

Revision: 3286
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3286&view=rev
Author:   einhverfr
Date:     2011-06-19 03:40:15 +0000 (Sun, 19 Jun 2011)

Log Message:
-----------
John Loke's patches regarding receipt sources and invoice quantities, and adding recommendation for Math::BigInt::GMP to Makefile

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Payment.pm
    trunk/Makefile.PL
    trunk/sql/Pg-database.sql

Modified: trunk/LedgerSMB/DBObject/Payment.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Payment.pm	2011-06-19 00:49:43 UTC (rev 3285)
+++ trunk/LedgerSMB/DBObject/Payment.pm	2011-06-19 03:40:15 UTC (rev 3286)
@@ -534,7 +534,7 @@
 sub get_payment_detail_data {
     my ($self) = @_;
     $self->get_metadata();
-    if ( !defined $self->{source_start} ){
+    if ( $self->{account_class} != 2 && !defined $self->{source_start} ){
         $self->error('No source start defined!');
         $self->finalize_request();
     }
@@ -567,8 +567,10 @@
             }
     		$source =~ s/$source_src(\D*)$/$source_inc$1/;
     		++ $source_inc;
-    		$inv->{source} = $source;
-		$self->{"source_$inv->{contact_id}"} = $source;
+		if ($self->{account_class} == 1) { # skip for AR Receipts 
+		  $inv->{source} = $source;
+		  $self->{"source_$inv->{contact_id}"} = $source;
+		}
     	} else {
 		# Clear source numbers every time.
 		$inv->{source} = "";

Modified: trunk/Makefile.PL
===================================================================
--- trunk/Makefile.PL	2011-06-19 00:49:43 UTC (rev 3285)
+++ trunk/Makefile.PL	2011-06-19 03:40:15 UTC (rev 3286)
@@ -33,6 +33,8 @@
 requires 'Error';
 requires 'CGI::Simple';
 
+recommends 'perl-Math-BigInt-GMP';
+
 test_requires 'Test::More';
 test_requires 'Test::Trap';
 test_requires 'Test::Exception';

Modified: trunk/sql/Pg-database.sql
===================================================================
--- trunk/sql/Pg-database.sql	2011-06-19 00:49:43 UTC (rev 3285)
+++ trunk/sql/Pg-database.sql	2011-06-19 03:40:15 UTC (rev 3286)
@@ -885,7 +885,7 @@
   trans_id int,
   parts_id int,
   description text,
-  qty integer,
+  qty NUMERIC,
   allocated integer,
   sellprice NUMERIC,
   precision int,


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.