Mailing List Archive

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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org