X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/8a08da09276f1b9fececce3b7d84bde67938cbab..72cd454d78487bdbf21d8c8ad64ae88c57a50e0f:/selfforum-cgi/shared/Posting/_lib.pm

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index fa9ca4b..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,6 +730,12 @@ 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 #