diff --git a/C4/Languages.pm b/C4/Languages.pm
index ef703da0cc..9833db39ed 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -113,6 +113,8 @@ Returns a reference to an array of hashes:
 
 sub getTranslatedLanguages {
     my ($interface, $theme, $current_language) = @_;
+    $interface //= q{};
+    $theme     //= q{};
     my @languages;
 
     my @enabled_languages;
diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl
index 7eceef6b1a..58258c62fa 100755
--- a/admin/itemtypes.pl
+++ b/admin/itemtypes.pl
@@ -60,7 +60,7 @@ if ( $op eq 'add_form' ) {
     my $parent_types   = Koha::ItemTypes->search( { parent_type => undef, itemtype => { '!=' => $itemtype_code } } );
     my $imagesets      = C4::Koha::getImageSets( checked => ( $itemtype ? $itemtype->imageurl : undef ) );
     my $searchcategory = GetAuthorisedValues("ITEMTYPECAT");
-    my $translated_languages = C4::Languages::getTranslatedLanguages( "both", C4::Context->preference('template') );
+    my $translated_languages = C4::Languages::getTranslatedLanguages();
     $template->param(
         itemtype          => $itemtype,
         parent_type       => $parent_type,
diff --git a/admin/preferences.pl b/admin/preferences.pl
index d00672b1ae..e3688874d7 100755
--- a/admin/preferences.pl
+++ b/admin/preferences.pl
@@ -93,7 +93,7 @@ sub _get_chunk {
             $interface = 'intranet';
             $theme     = C4::Context->preference('template');
         }
-        $chunk->{'languages'} = getTranslatedLanguages( $interface, $theme, undef, $current_languages );
+        $chunk->{'languages'} = getTranslatedLanguages( $interface, $theme );
         $chunk->{'type'} = 'languages';
     } elsif ( $options{ 'choices' } ) {
         my $add_blank;
diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl
index 8031d1a490..2e567fe76e 100755
--- a/admin/systempreferences.pl
+++ b/admin/systempreferences.pl
@@ -186,7 +186,7 @@ sub GetPrefParams {
             $interface = 'intranet';
             $theme     = C4::Context->preference('template');
         }
-        my $languages_loop = getTranslatedLanguages( $interface, $theme, $lang, $currently_selected_languages );
+        my $languages_loop = getTranslatedLanguages( $interface, $theme, $lang );
 
         $params->{'languages_loop'}    = $languages_loop;
         $params->{'type_langselector'} = 1;
diff --git a/t/db_dependent/Languages.t b/t/db_dependent/Languages.t
index 1d8e1e2296..3a5967ee7d 100755
--- a/t/db_dependent/Languages.t
+++ b/t/db_dependent/Languages.t
@@ -50,7 +50,7 @@ $languages = C4::Languages::getLanguages('eng', 1);
 is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
 
 my $translatedlanguages1;
-warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'') }
+warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages( 'opac', 'prog' ) }
              [],
              'no warnings for calling getTranslatedLanguages';
 my @currentcheck1 = map { $_->{current} } @$translatedlanguages1;
@@ -58,7 +58,7 @@ my $onlyzeros = first { $_ != 0 } @currentcheck1;
 ok(! $onlyzeros, "Everything was zeros.\n");
 
 my $translatedlanguages2;
-warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','') }
+warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages( 'opac', 'prog', 'en' ) }
              [],
              'no warnings for calling getTranslatedLanguages';
 my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
diff --git a/tools/additional-contents.pl b/tools/additional-contents.pl
index 8cfdd34ab5..e9f5ee0269 100755
--- a/tools/additional-contents.pl
+++ b/tools/additional-contents.pl
@@ -226,7 +226,7 @@ if ( $op eq 'list' ) {
     $template->param( additional_contents => $additional_contents );
 }
 
-my $translated_languages = C4::Languages::getTranslatedLanguages;
+my $translated_languages = C4::Languages::getTranslatedLanguages();
 my @languages;
 for my $language (@$translated_languages) {
     for my $sublanguage ( @{ $language->{sublanguages_loop} } ) {