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

[..hidden..]

Revision: 2872
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2872&view=rev
Author:   einhverfr
Date:     2010-02-09 17:53:08 +0000 (Tue, 09 Feb 2010)

Log Message:
-----------
Correcting Calls to scriptlib's _close_form function

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

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2010-02-09 05:55:51 UTC (rev 2871)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2010-02-09 17:53:08 UTC (rev 2872)
@@ -348,7 +348,7 @@
     my ($request) = @_;
 
     my $company = new_company($request);
-    if ($company->_close_form){
+    if (_close_form($company)){
         $company->save();
     }
     _render_main_screen($company);
@@ -379,7 +379,7 @@
            push @{$company->{tax_ids}}, $tax;
         }  
     }
-    if ($company->_close_form){
+    if (_close_form($company)){
         $company->save_credit();
     }
     $company->get();
@@ -504,7 +504,7 @@
 sub save_contact {
     my ($request) = @_;
     my $company = new_company($request);
-    if ($company->_close_form){
+    if (_close_form($company)){
         $company->save_contact();
     }
     $company->get;
@@ -553,7 +553,7 @@
 sub save_bank_account {
     my ($request) = @_;
     my $company = new_company($request);
-    if ($company->_close_form){
+    if (_close_form($company)){
         $company->save_bank_account();
     }
     $company->get;
@@ -563,7 +563,7 @@
 sub save_notes {
     my ($request) = @_;
     my $company = new_company($request);
-    if ($company->_close_form){
+    if (_close_form($company)){
         $company->save_notes();
     }
     $company->get();


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