country.cgi: Use own location-functions.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-09-22 20:25:02 +02:00
committed by Michael Tremer
parent d443f504aa
commit cb204ea100

View File

@@ -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;
</tr>
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) {