43 lines
1.1 KiB
Perl
43 lines
1.1 KiB
Perl
|
######################################################################
|
||
|
|
#
|
||
|
|
# $Id: de_ch.pm 147 2009-10-13 14:46:07Z alba $
|
||
|
|
#
|
||
|
|
# Copyright 2009 Roman Racine
|
||
|
|
# Copyright 2009 Alexander Bartolich
|
||
|
|
#
|
||
|
|
# This program is free software; you can redistribute it and/or modify
|
||
|
|
# it under the terms of the GNU General Public License as published by
|
||
|
|
# the Free Software Foundation; either version 3 of the License, or
|
||
|
|
# (at your option) any later version.
|
||
|
|
#
|
||
|
|
######################################################################
|
||
|
|
#
|
||
|
|
# This file is encoded in iso-8859-1
|
||
|
|
#
|
||
|
|
######################################################################
|
||
|
|
package MOD::lang::de_ch;
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use Carp qw( confess );
|
||
|
|
use MOD::lang::de();
|
||
|
|
|
||
|
|
use constant TRANS => {
|
||
|
|
'Pending' => 'Pendent',
|
||
|
|
'Pending Posts' => 'Pendente Moderationsentscheidungen',
|
||
|
|
};
|
||
|
|
|
||
|
|
sub get_translator($)
|
||
|
|
{
|
||
|
|
my $de = MOD::lang::de::get_translator(@_) || confess;
|
||
|
|
return sub {
|
||
|
|
my $result = TRANS->{$_[0]};
|
||
|
|
return $result if ($result);
|
||
|
|
$result = $de->(@_);
|
||
|
|
return $result if ($result);
|
||
|
|
return $_[0];
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|