this is a better hack. still need to fix layout / flag size.
Roger Dingledine commited on 2006-01-20 07:46:18
Zeige 2 geänderte Dateien mit 7 Einfügungen und 3 Löschungen.
- include/head.wmi 84ad7481d..af4f15bde
- include/perl-globals.wmi efc4299bb..c0c683c27
| ... | ... |
@@ -54,10 +54,14 @@ |
| 54 | 54 |
<td class="banner-right"> |
| 55 | 55 |
<:{
|
| 56 | 56 |
my $page = $WML_SRC_FILENAME; |
| 57 |
+ my $numlangs = 0; |
|
| 57 | 58 |
$page =~ s/\.wml//; |
| 58 | 59 |
for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
|
| 59 | 60 |
next if $dir eq '$(LANG)'; |
| 60 |
- printf('<a href="%s.html.%s"><img src="$(IMGROOT)/%s.png" alt="%s" /></a>', $page, $dir, $dir, $LANGUAGES{$dir}) if (-e "$dir/$WML_SRC_FILENAME");
|
|
| 61 |
+ if (-e "$dir/$WML_SRC_FILENAME") {
|
|
| 62 |
+ printf('<a href="%s.html.%s"><img src="$(IMGROOT)/%s.png" alt="%s" /></a>', $page, $dir, $dir, $LANGUAGES{$dir});
|
|
| 63 |
+ last if ++$numlangs >= 3; |
|
| 64 |
+ } |
|
| 61 | 65 |
}; |
| 62 | 66 |
}:> |
| 63 | 67 |
</td> |
| ... | ... |
@@ -2,13 +2,13 @@ |
| 2 | 2 |
<: |
| 3 | 3 |
# Change both. The array is ordered (for pages like translation status). |
| 4 | 4 |
# The order of flags in header is based on sort order of language name. |
| 5 |
- my @LANGUAGES = qw{en de it fr};
|
|
| 5 |
+ my @LANGUAGES = qw{en de it fr se};
|
|
| 6 | 6 |
my %LANGUAGES = ( |
| 7 | 7 |
'en' => "English", |
| 8 | 8 |
'de' => "Deutsch", |
| 9 | 9 |
'it' => "Italiano", |
| 10 | 10 |
'fr' => "Français", |
| 11 |
-# 'se' => "Svenska", |
|
| 11 |
+ 'se' => "Svenska", |
|
| 12 | 12 |
); |
| 13 | 13 |
our $WML_SRC_FILENAME; |
| 14 | 14 |
|
| 15 | 15 |