From 4f8e4bccbf68d52f271043f51178df42ba9e7ed1 Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 27 Feb 2008 21:52:07 +0000
Subject: Minor modification to the Company.pm, so companies are properly saved
 from the vendor screen

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2094 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Company.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm
index 9b122b4d..b2584aa0 100644
--- a/LedgerSMB/DBObject/Company.pm
+++ b/LedgerSMB/DBObject/Company.pm
@@ -69,7 +69,7 @@ This method saves an address for a company.
 
 sub save_location {
     my $self = shift @_;
-    $self->{country_id} = $self->{country};
+    $self->{country_id} = $self->{country_code};
     $self->exec_method(funcname => 'company__location_save');
 
     $self->{dbh}->commit;
-- 
cgit v1.2.3