X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/75f82718d85387517290bb1a5918980aa656bb1f..c6b8e3075d2fd6cd5ef345aa686a68cc899eb5fe:/selfforum-cgi/shared/Posting/_lib.pm

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 93409c7..886d957 100644
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -40,6 +40,7 @@ use base qw(Exporter);
   hr_time
   short_hr_time
   long_hr_time
+  very_short_hr_time
   month
 
   get_all_threads
@@ -729,11 +730,17 @@ sub long_hr_time ($) {
   sprintf ('%s, %02d. %s %04d, %02d:%02d:%02d Uhr', $wday[$wday], $day, $month[$mon], $year+1900, $hour, $min, $sek);
 }
 
+sub very_short_hr_time($) {
+  my (undef, $min, $hour, $day, $mon, $year) = localtime ($_[0]);
+
+  sprintf ('%02d. %02d. %04d', $day, $mon+1, $year+1900);
+}
+
 sub month($) {
     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];
 }
 
 # ====================================================