diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNDB/Plugin/TransAdmin.pm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/lib/VNDB/Plugin/TransAdmin.pm b/lib/VNDB/Plugin/TransAdmin.pm index a13c95a6..86cfb872 100644 --- a/lib/VNDB/Plugin/TransAdmin.pm +++ b/lib/VNDB/Plugin/TransAdmin.pm @@ -40,7 +40,6 @@ sub tladmin { my($self, $lang) = @_; $lang ||= ''; - my $intro = $lang =~ s/intro//; return $self->resNotFound if $lang && ($lang eq 'en' || !grep $_ eq $lang, $self->{l10n}->languages); my $sect = $self->reqGet('sect')||''; my $doc = $self->reqGet('doc')||''; @@ -64,7 +63,7 @@ sub tladmin { $self->htmlHeader(title => 'Quick-and-dirty Translation Editor', noindex => 1); div class => 'mainbox'; - a class => 'addnew', href => '/tladmin/intro', 'README'; + a class => 'addnew', href => '/d17', 'README'; h1 'Quick-and-dirty Translation Editor'; h2 class => 'alttitle', 'Step #1: Choose a language'; p class => 'browseopts'; @@ -75,7 +74,6 @@ sub tladmin { _docs($lang, $doc) if $lang; end; - _intro() if $intro; _section($self, $lang, $sect, $page) if $lang && $sect; _doc($self, $lang, $doc) if $lang && $doc; @@ -155,18 +153,6 @@ sub _readlang { } -sub _intro { - my $f = LangFile->new(read => $langfile); - my $intro = $f->read; - $intro = join "\n", @$intro[1..$#$intro]; - $f->close; - div class => 'mainbox'; - h1 'Introduction to the language file'; - pre style => 'padding: 0; margin: 0; background: none; border: none', $intro; - end; -} - - sub _sections { my($self, $lang, $sect, $list) = @_; |