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

[..hidden..]

Revision: 3338
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3338&view=rev
Author:   einhverfr
Date:     2011-06-26 10:40:14 +0000 (Sun, 26 Jun 2011)

Log Message:
-----------
better error for when ar/ap account link missing

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

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-26 10:35:30 UTC (rev 3337)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-26 10:40:14 UTC (rev 3338)
@@ -585,7 +585,11 @@
 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();


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