Mailing List Archive

Author: richter
Date: Wed Apr 16 08:32:15 2014
New Revision: 1587830

URL: http://svn.apache.org/r1587830
Log:
Allow to disable caching for datetime and age control

Modified:
perl/embperl/trunk/Embperl/Form/Control/age.pm
perl/embperl/trunk/Embperl/Form/Control/datetime.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/age.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/age.pm?rev=1587830&r1=1587829&r2=1587830&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/age.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/age.pm Wed Apr 16 08:32:15 2014
@@ -47,12 +47,12 @@ sub init

sub init_data
{
- my ($self, $req, $parentctrl) = @_ ;
+ my ($self, $req, $parentctrl, $force) = @_ ;

my $fdat = $req -> {docdata} || \%fdat ;
my $name = $self->{name} ;
my $val = $fdat->{$name} ;
- return if ($val eq '' || $req -> {"ef_age_init_done_$name"}) ;
+ return if ($val eq '' || ($req -> {"ef_age_init_done_$name"} && !$force)) ;

#20060914041444Z
my ($year, $mon, $mday, $hour, $min, $sec, $tz) = ($val =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(.)$/) ;

Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/datetime.pm?rev=1587830&r1=1587829&r2=1587830&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/datetime.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/datetime.pm Wed Apr 16 08:32:15 2014
@@ -53,12 +53,12 @@ sub init

sub init_data
{
- my ($self, $req, $parentctrl) = @_ ;
+ my ($self, $req, $parentctrl, $force) = @_ ;

my $fdat = $req -> {docdata} || \%fdat ;
my $name = $self->{name} ;
my $time = $fdat->{$name} ;
- return if ($time eq '' || $req -> {"ef_datetime_init_done_$name"}) ;
+ return if ($time eq '' || ($req -> {"ef_datetime_init_done_$name"} && !$force)) ;

if ($self -> {dynamic} && ($time =~ /^\s*((?:d|m|y|q)(?:\+|-)?(?:\d+)?)\s*$/))
{



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org