SF.net SVN: ledger-smb:[3339] trunk/LedgerSMB/ScriptLib/Company.pm

[..hidden..]

Revision: 3339
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3339&view=rev
Author:   einhverfr
Date:     2011-06-26 11:12:49 +0000 (Sun, 26 Jun 2011)

Log Message:
-----------
Correcting previous commit

Modified Paths:
--------------
    trunk/LedgerSMB/ScriptLib/Company.pm

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-26 10:40:14 UTC (rev 3338)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-26 11:12:49 UTC (rev 3339)
@@ -585,11 +585,6 @@
 sub save {
     
     my ($request) = @_;
-    if (!$request->{ar_ap_accno_id}){
-          $request->error(
-              $request->{_locale}->text('No AR or AP Account Selected')
-          );
-    }
     my $company = new_company($request);
     if (_close_form($company)){
         $company->save();
@@ -612,6 +607,11 @@
 sub save_credit {
     
     my ($request) = @_;
+    if (!$request->{ar_ap_accno_id}){
+          $request->error(
+              $request->{_locale}->text('No AR or AP Account Selected')
+          );
+    }
 
     my $company = new_company($request);
     my @taxes;


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