SF.net SVN: ledger-smb:[2574] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 2574
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2574&view=rev
Author:   einhverfr
Date:     2009-04-24 05:11:41 +0000 (Fri, 24 Apr 2009)

Log Message:
-----------
Correcting shipto issue saving invoice

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2009-04-24 04:56:51 UTC (rev 2573)
+++ trunk/LedgerSMB/Form.pm	2009-04-24 05:11:41 UTC (rev 2574)
@@ -1583,6 +1583,9 @@
 sub add_shipto {
   
   	my ( $self,$dbh,$id ) = @_;
+        if (! $self->{locationid}) {
+		return;
+	}
 	my $query = qq|
 			INSERT INTO new_shipto 
 			(trans_id, oe_id,location_id) 


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