summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler/Misc.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Handler/Misc.pm')
-rw-r--r--lib/VNDB/Handler/Misc.pm29
1 files changed, 4 insertions, 25 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index cb9a508a..e36c0254 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -13,7 +13,6 @@ TUWF::register(
qr{}, \&homepage,
qr{(?:([upvrcs])([1-9]\d*)/)?hist},\&history,
qr{d([1-9]\d*)}, \&docpage,
- qr{setlang}, \&setlang,
qr{nospam}, \&nospam,
qr{xml/prefs\.xml}, \&prefs,
qr{opensearch\.xml}, \&opensearch,
@@ -150,8 +149,8 @@ sub homepage {
li;
lit $self->{l10n}->datestr($_->{released});
txt ' ';
- cssicon $_, mt "_plat_$_" for (@{$_->{platforms}});
- cssicon "lang $_", mt "_lang_$_" for (@{$_->{languages}});
+ cssicon $_, $self->{platforms}{$_} for (@{$_->{platforms}});
+ cssicon "lang $_", $self->{languages}{$_} for (@{$_->{languages}});
txt ' ';
a href => "/r$_->{id}", title => $_->{original}||$_->{title}, shorten $_->{title}, 30;
end;
@@ -170,8 +169,8 @@ sub homepage {
li;
lit $self->{l10n}->datestr($_->{released});
txt ' ';
- cssicon $_, mt "_plat_$_" for (@{$_->{platforms}});
- cssicon "lang $_", mt "_lang_$_" for (@{$_->{languages}});
+ cssicon $_, $self->{platforms}{$_} for (@{$_->{platforms}});
+ cssicon "lang $_", $self->{languages} for (@{$_->{languages}});
txt ' ';
a href => "/r$_->{id}", title => $_->{original}||$_->{title}, shorten $_->{title}, 30;
end;
@@ -346,26 +345,6 @@ sub docpage {
}
-sub setlang {
- my $self = shift;
-
- my $frm = $self->formValidate(
- {get => 'lang', required => 1, enum => [ VNDB::L10N::languages ]},
- {get => 'ref', required => 0, default => '/'}
- );
- return $self->resNotFound if $frm->{_err};
-
- my $browser = VNDB::L10N->get_handle()->language_tag();
-
- $self->resRedirect($frm->{ref}, 'post');
- if($frm->{lang} ne $self->{l10n}->language_tag()) {
- $self->authInfo->{id}
- ? $self->authPref(l10n => $frm->{lang} eq $browser ? undef : $frm->{lang})
- : $self->resCookie(l10n => $frm->{lang} eq $browser ? undef : $frm->{lang}, expires => time()+31536000);
- }
-}
-
-
sub nospam {
my $self = shift;
$self->htmlHeader(title => mt '_nospam_title', noindex => 1);