Author: richter Date: Tue Nov 10 05:23:02 2015 New Revision: 1713577 URL: http://svn.apache.org/viewvc?rev=1713577&view=rev Log: Add seconds to datetime (attribute fulltime)
Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/datetime.pm?rev=1713577&r1=1713576&r2=1713577&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/datetime.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/datetime.pm Tue Nov 10 05:23:02 2015 @@ -60,7 +60,7 @@ sub get_display_text return $time if ($self -> {format} eq '-') ; return if ($time eq '') ; - if ($self -> {dynamic} && ($time =~ /^\s*((?:d|m|y|q)(?:\+|-)?(?:\d+)?)\s*$/)) + if ($self -> {dynamic} && ($time =~ /^\s*((?:s|i|h|d|w|m|y|q)(?:\+|-)?(?:\d+)?)\s*$/)) { return $1 ; } @@ -74,6 +74,7 @@ sub get_display_text my @time = gmtime(timegm_nocheck($s,$min,$h,$d,$m-1,$y-1900)+($tz_local*60)); my $format = $self -> {notime} || ($s == 0 && $h == 0 && $min == 0)?'%d.%m.%Y':'%d.%m.%Y, %H:%M' ; + $format = '%d.%m.%Y, %H:%M:%S' if ($self -> {fulltime}) ; strftime ($format, @time[0..5]) ; } ; --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org