oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix spacing issues with WebGUI::DateTime->webguiDate.

Browse source
This commit is contained in:
Colin Kuskie 2011-07-04 12:15:27 -07:00
parent 2bcda0c9f5
commit 7e8ae8fe9a
3 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/DateTime.pm
View file

@ -491,7 +491,9 @@ sub session {
Change a WebGUI format into a Strftime format.
NOTE: %M in WebGUI's format has no equivalent in strftime format, so it will
be replaced with "_varmonth_". Do something with it.
be replaced with "{month}". Single digit hours are handled similarly. DateTime's
strftime will use {method} to call a method on the object to fill in that part of
the format.
=cut
@ -514,13 +516,13 @@ sub webguiToStrftime {
"c" => "B",
"C" => "b",
"d" => "d",
"D" => "e",
"D" => "{day}",
"h" => "I",
"H" => "l",
"j" => "H",
"J" => "k",
"m" => "m",
"M" => "_varmonth_",
"M" => "{month}",
"n" => "M",
"t" => "Z",
"O" => "z",
@ -587,12 +589,7 @@ sub webguiDate {
my $format = $self->webguiToStrftime( shift || "%z %Z" );
#--- %M
my $datestr = $self->strftime($format);
my $temp = int($self->month);
$datestr =~ s/\%_varmonth_/$temp/g;
#--- return
return $datestr;
}
#######################################################################