month(): bug fix

[selfforum.git] / selfforum-cgi / shared / Posting / _lib.pm

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 93409c7b5972a17f4c2a782ba89c8a542628c08a..fa9ca4bb7125c987a3f18c5a318e735af5f5fc9f 100644 (file)
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -733,7 +733,7 @@ sub month($) {
     my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mai Juni Juli August September Oktober November Dezember));
                                      # ^^^^^^^^ - UTF8 #
 
     my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mai Juni Juli August September Oktober November Dezember));
                                      # ^^^^^^^^ - UTF8 #
 

-    return $month[$_[0]];
+    return $month[$_[0]-1];

 }
 
 # ====================================================
 }
 
 # ====================================================