SF.net SVN: ledger-smb:[5137] trunk/LedgerSMB

[..hidden..]

Revision: 5137
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5137&view=rev
Author:   einhverfr
Date:     2012-10-03 09:20:40 +0000 (Wed, 03 Oct 2012)
Log Message:
-----------
More customer/vendor fixes

Modified Paths:
--------------
    trunk/LedgerSMB/Entity/Company.pm
    trunk/LedgerSMB/Scripts/contact.pm

Modified: trunk/LedgerSMB/Entity/Company.pm
===================================================================
--- trunk/LedgerSMB/Entity/Company.pm	2012-10-03 08:38:57 UTC (rev 5136)
+++ trunk/LedgerSMB/Entity/Company.pm	2012-10-03 09:20:40 UTC (rev 5137)
@@ -131,6 +131,7 @@
     $ref->{control_code} = $self->{control_code};
     $ref->{entity_class} = $self->{entity_class};
     $ref->{country_id} = $self->{country_id};
+    $ref->{name} = $ref->{legal_name};
     $self = $self->new(%$ref);
     return ($self);
 }

Modified: trunk/LedgerSMB/Scripts/contact.pm
===================================================================
--- trunk/LedgerSMB/Scripts/contact.pm	2012-10-03 08:38:57 UTC (rev 5136)
+++ trunk/LedgerSMB/Scripts/contact.pm	2012-10-03 09:20:40 UTC (rev 5137)
@@ -448,6 +448,7 @@
 
 sub save_company {
     my ($request) = @_;
+    $request->{name} ||= $request->{legal_name};
     my $company = LedgerSMB::Entity::Company->new(%$request);
     $request->{target_div} = 'credit_div';
     _main_screen($request, $company->save);

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