From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 3/5] location-functions.pl: Add get_continent_code() function. Date: Sat, 07 Nov 2020 19:47:22 +0100 Message-ID: <20201107184724.3590-3-stefan.schantl@ipfire.org> In-Reply-To: <20201107184724.3590-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6127223839607043186==" List-Id: --===============6127223839607043186== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable This tiny function is used to get the continent code for a given country code. Signed-off-by: Stefan Schantl --- config/cfgroot/location-functions.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/config/cfgroot/location-functions.pl b/config/cfgroot/location-f= unctions.pl index 483703016..e8db4ba9b 100644 --- a/config/cfgroot/location-functions.pl +++ b/config/cfgroot/location-functions.pl @@ -190,6 +190,16 @@ sub get_locations() { return @sorted_locations; } =20 +# Function to get the continent code of a given country code. +sub get_continent_code($) { + my ($country_code) =3D @_; + + # Use location module to grab the continent code. + my $continent_code =3D &Location::get_continent_code($db_handle, $country_c= ode); + + return $continent_code; +} + # Function to check if a given address has one ore more special flags. sub address_has_flags($) { my ($address) =3D @_; --=20 2.20.1 --===============6127223839607043186==--