diff --git a/html/cgi-bin/country.cgi b/html/cgi-bin/country.cgi
index b1c72bb22..35fa93113 100644
--- a/html/cgi-bin/country.cgi
+++ b/html/cgi-bin/country.cgi
@@ -53,7 +53,7 @@ print<<END;
 END
 
 # Get a list of all supported country codes.
-my @countries = &Location::database_countries();
+my @countries = &Location::Functions::get_locations();
 
 # Loop through whole country list.
 foreach my $country (@countries) {