Changeset 3039 for trunk/lib/MT/I18N.pm

Timestamp:

09/08/08 08:16:00 (15 months ago)

Author:

fumiakiy

Message:

Moved languages_list method from MT::App::CMS to MT::I18N so it can be used from other apps like Wizard.

Files:

• trunk/lib/MT/I18N.pm (modified) (2 diffs)

trunk/lib/MT/I18N.pm

@@ -72 +72 @@
 }
 
+sub languages_list {
+    my ( $app, $curr ) = @_;
+
+    $app ||= MT->instance;
+    my $langs = $app->supported_languages;
+    my @data;
+    $curr ||= $app->config('DefaultLanguage');
+    $curr = 'en-us' if ( lc($curr) eq 'en_us' );
+    my $curr_lang = $app->current_language;
+    for my $tag ( keys %$langs ) {
+        ( my $name = $langs->{$tag} ) =~ s/\w+ English/English/;
+        $app->set_language($tag);
+        my $row = { l_tag => $tag, l_name => $app->translate($name) };
+        $row->{l_selected} = 1 if $curr eq $tag;
+        push @data, $row;
+    }
+    $app->set_language($curr_lang);
+    [ sort { $a->{l_name} cmp $b->{l_name} } @data ];
+}
+
 1;
 __END__
@@ -130 +150 @@
 package for the current language.
 
+=head2 languages_list($app, $current)
+
+Returns a reference to an array of hashes which contains necessary
+data to render a dropdown list of languages that MT supports.
+Dropdown lists appear on User Profile, System Settings, and the
+start page of the wizard, among others.
+
 =head1 LICENSE