Bug 93037 - use YYYY-MM-DD HH:MM formatting for attachment dates

r=gerv,myk
parent 8603948d
...@@ -73,9 +73,10 @@ sub list ...@@ -73,9 +73,10 @@ sub list
my %a; my %a;
($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = &::FetchSQLData(); ($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = &::FetchSQLData();
# Format the attachment's creation/modification date into something readable. # Format the attachment's creation/modification date into a standard
if ($a{'date'} =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { # format (YYYY-MM-DD HH:MM)
$a{'date'} = "$3/$4/$2 $5:$6"; 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. # Retrieve a list of status flags that have been set on the attachment.
......
...@@ -73,9 +73,10 @@ sub list ...@@ -73,9 +73,10 @@ sub list
my %a; my %a;
($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = &::FetchSQLData(); ($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = &::FetchSQLData();
# Format the attachment's creation/modification date into something readable. # Format the attachment's creation/modification date into a standard
if ($a{'date'} =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) { # format (YYYY-MM-DD HH:MM)
$a{'date'} = "$3/$4/$2 $5:$6"; 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. # Retrieve a list of status flags that have been set on the attachment.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment