Fixes to user management

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2332 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 6 insertions, 5 deletions

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;