diff --git a/html/cgi-bin/ids.cgi b/html/cgi-bin/ids.cgi index b793ecd2f..582b9aa68 100644 --- a/html/cgi-bin/ids.cgi +++ b/html/cgi-bin/ids.cgi @@ -2021,6 +2021,24 @@ sub get_memory_usage($) { return; } +# +## Function to get the provider handle by a given ID. +# +sub get_provider_handle($) { + my ($id) = @_; + + my %used_providers = (); + + # Read-in provider settings file. + &General::readhasharray($IDS::providers_settings_file, \%used_providers); + + # Obtain the provider handle for the given ID. + my $provider_handle = $used_providers{$cgiparams{'ID'}}[0]; + + # Return the handle. + return $provider_handle; +} + # ## Function to get the provider name from the language file or providers file for a given handle. #