From 72cd454d78487bdbf21d8c8ad64ae88c57a50e0f Mon Sep 17 00:00:00 2001
From: fox_two <>
Date: Mon, 4 Jun 2001 13:38:12 +0000
Subject: [PATCH 1/1] very_short_hr_time(): returns only date

---
 selfforum-cgi/shared/Posting/_lib.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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 #
-- 
2.34.1