aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJon Robertson <jonrober@stanford.edu>2013-10-16 22:37:20 -0700
committerRuss Allbery <rra@stanford.edu>2013-10-29 15:26:38 -0700
commit2b26d40c899b9eb557ed4ef11935668418617e3a (patch)
treedcaa36a7a50f55036e73eae270d538c840a5d162 /perl
parentdf8d76d414c4fbb2ea15499cc80395895064c7f7 (diff)
ACL.pm: Fix a place where the acl history was getting raw timestamp
The acl_history table needed to get the DateTime object rather than the raw epoch timestamp in one place. This was causing errors adding new lines to the history. Change-Id: I9c971819484cd0b26cb2561549246c284afc55a1 Reviewed-on: https://gerrit.stanford.edu/1325 Reviewed-by: Russ Allbery <rra@stanford.edu> Tested-by: Russ Allbery <rra@stanford.edu>
Diffstat (limited to 'perl')
-rw-r--r--perl/Wallet/ACL.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm
index 5d9e8f2..15a380f 100644
--- a/perl/Wallet/ACL.pm
+++ b/perl/Wallet/ACL.pm
@@ -245,7 +245,7 @@ sub destroy {
ah_action => 'destroy',
ah_by => $user,
ah_from => $host,
- ah_on => $time);
+ ah_on => strftime ('%Y-%m-%d %T', localtime $time));
$self->{schema}->resultset('AclHistory')->create (\%record);
$guard->commit;
};