From 4ea17a89db4d31ac6ce265b0e26a7d91fc4e141e Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Sat, 20 May 2006 15:22:32 +0000
Subject: [PATCH] (DoNew): Add hour parameter.

---
 modules/today.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/today.pl b/modules/today.pl
index 7e2ae328..7a7465b0 100644
--- a/modules/today.pl
+++ b/modules/today.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: today.pl,v 1.4 2006/04/29 17:11:23 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: today.pl,v 1.5 2006/05/20 15:22:32 as Exp $</p>';
 
 # New Action
 
@@ -38,6 +38,6 @@ sub DoNew {
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($Now);
   $today = sprintf("%d-%02d-%02d", $year + 1900, $mon + 1, $mday);
   $today .= "_" . $id if $id;
+  $today .= sprintf("_%02dh%02d", $hour, $min) if GetParam('hour', 0);
   return DoEdit($today);
 }
-