From fb3428428330dde7d2757317c4a7ac4e7e9a2e9b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 22 Sep 2008 22:41:32 +0000
Subject: Fixes to user management

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2332 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Admin.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm
index 061cbd72..5ab869b0 100644
--- a/LedgerSMB/DBObject/Admin.pm
+++ b/LedgerSMB/DBObject/Admin.pm
@@ -258,9 +258,10 @@ sub get_countries {
     
     my $self = shift @_;
     
-    my $sth = $self->{dbh}->prepare("SELECT id, name FROM country");
-    my $code = $sth->execute();
-    
-    return $sth->fetchall_arrayref( {} ); # returns an array of hashrefs.
+    @{$self->{countries}} 
+          =$self->exec_method(funcname => 'location_list_country'); 
+	# returns an array of hashrefs.
+    $self->debug({file => '/tmp/user'});
+    return $self->{countries};
 }
-1;
\ No newline at end of file
+1;
-- 
cgit v1.2.3