Bug 11263: Use all languages instead of just the translated ones

This patch produces the same dropdown list as the one in the adv search.
With this way, it won't be necessary to install additional templates to
fill the locale list.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl
index c6edab4..e31b8f2 100755 (executable)
--- a/serials/subscription-add.pl
+++ b/serials/subscription-add.pl
@@ -215,10 +215,10 @@ if ($op eq 'addsubscription') {
 
     my $languages = [ map {
         {
-            language => $_->{language},
-            description => $_->{native_description} || $_->{language}
+            language => $_->{iso639_2_code},
+            description => $_->{language_description} || $_->{language}
         }
-    } @{ C4::Languages::getTranslatedLanguages() } ];
+    } @{ C4::Languages::getAllLanguages() } ];
 
     $template->param( locales => $languages );
 

diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl
index 065ab01..71e5d4b 100755 (executable)
--- a/serials/subscription-numberpatterns.pl
+++ b/serials/subscription-numberpatterns.pl
@@ -105,12 +105,13 @@ if($op && ($op eq 'new' || $op eq 'modify')) {
     my @frequencies = GetSubscriptionFrequencies();
     my @subtypes;
     push @subtypes, { value => $_ } for (qw/ issues weeks months /);
+
     my $languages = [ map {
         {
-            language => $_->{language},
-            description => $_->{native_description} || $_->{language}
+            language => $_->{iso639_2_code},
+            description => $_->{language_description} || $_->{language}
         }
-    } @{ C4::Languages::getTranslatedLanguages() } ];
+    } @{ C4::Languages::getAllLanguages() } ];
 
     $template->param(
         $op => 1,