From cb204ea1002c8ca48bebadf161273b207b94adc6 Mon Sep 17 00:00:00 2001 From: Stefan Schantl Date: Tue, 22 Sep 2020 20:25:02 +0200 Subject: [PATCH] country.cgi: Use own location-functions. Signed-off-by: Stefan Schantl Signed-off-by: Michael Tremer --- html/cgi-bin/country.cgi | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/html/cgi-bin/country.cgi b/html/cgi-bin/country.cgi index a1cf243473..b519d89b3c 100644 --- a/html/cgi-bin/country.cgi +++ b/html/cgi-bin/country.cgi @@ -21,8 +21,6 @@ use strict; -use Locale::Codes::Country; - my $col; my $lines = '1'; my $lines2 = ''; @@ -32,6 +30,8 @@ require "${General::swroot}/location-functions.pl"; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; +require "${General::swroot}/location-functions.pl"; + &Header::showhttpheaders(); &Header::openpage($Lang::tr{'countries'}, 1, ''); @@ -52,8 +52,11 @@ print< END +# Init libloc database connection. +my $db_handle = &Location::Functions::init(); + # Get a list of all supported country codes. -my @countries = Locale::Codes::Country::all_country_codes(); +my @countries = &Location::database_countries($db_handle); # Loop through whole country list. foreach my $country (@countries) { -- 2.39.5