diff options
Diffstat (limited to 'Attachment.pm')
| -rw-r--r-- | Attachment.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Attachment.pm b/Attachment.pm index acfa52f63..4b4b19ec3 100644 --- a/Attachment.pm +++ b/Attachment.pm @@ -73,9 +73,10 @@ sub list my %a; ($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = &::FetchSQLData(); - # Format the attachment's creation/modification date into something readable. - if ($a{'date'} =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { - $a{'date'} = "$3/$4/$2 $5:$6"; + # Format the attachment's creation/modification date into a standard + # format (YYYY-MM-DD HH:MM) + if ($a{'date'} =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { + $a{'date'} = "$1-$2-$3 $4:$5"; } # Retrieve a list of status flags that have been set on the attachment. |