summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject/Admin.pm11
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;