archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(DoNew): Use $Now instead of $time.

Browse Source
This commit is contained in:
Alex Schroeder
2006-02-22 22:28:42 +00:00
parent 2b947a2d84
commit ed77406d78
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/today.pl
View File

@@ -16,7 +16,7 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: today.pl,v 1.2 2006/02/22 22:27:27 as Exp $</p>';
$ModulesDescription .= '<p>$Id: today.pl,v 1.3 2006/02/22 22:28:42 as Exp $</p>';
# New Action
@@ -24,7 +24,7 @@ $Action{new} = \&DoNew;
sub DoNew {
my $id = shift;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($time);
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;
return DoEdit($today);