[Rt-commit] rt branch, 4.2/keep-date-cf-value-on-create, created. rt-4.2.0-30-gdf2debe

[? sunnavy]

The branch, 4.2/keep-date-cf-value-on-create has been created
        at  df2debe2def0a0a5dfbfed839b0d9a14c4d1211b (commit)

- Log -----------------------------------------------------------------
commit df2debe2def0a0a5dfbfed839b0d9a14c4d1211b
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Oct 30 23:25:40 2013 +0800

    automatically fill the date cf inputs for create pages
    
    on create pages, we usually requires a submit button to submit the form.
    when the cf dates are set from url, we need to fill to get them submitted

diff --git a/share/html/Elements/EditCustomFieldDate b/share/html/Elements/EditCustomFieldDate
index 9e190be..2985725 100644
--- a/share/html/Elements/EditCustomFieldDate
+++ b/share/html/Elements/EditCustomFieldDate
@@ -46,11 +46,13 @@
 %#
 %# END BPS TAGGED BLOCK }}}
 % my $name = $NamePrefix.$CustomField->Id.'-Values';
-<& /Elements/SelectDate, Name => "$name", current => 0, ShowTime => 0 &> (<%$DateObj->AsString(Time => 0, Timezone => 'utc')%>)
+<& /Elements/SelectDate, Name => "$name", current => 0, ShowTime => 0, $KeepValue && $Default ? (Default => $Default) : () &> (<%$DateObj->AsString(Time => 0, Timezone => 'utc')%>)
 
 <%INIT>
 my $DateObj = RT::Date->new ( $session{'CurrentUser'} );
 $DateObj->Set( Format => 'unknown', Value => $Default, Timezone => 'utc' );
+
+$KeepValue = 1 if !defined $KeepValue && $Default && ( $HTML::Mason::Commands::r->path_info =~ m{\/Create.html$} || $DECODED_ARGS->{'Create'} );
 </%INIT>
 <%ARGS>
 $Object => undef
@@ -59,4 +61,5 @@ $NamePrefix => undef
 $Default => undef
 $Values => undef
 $MaxValues => 1
+$KeepValue => undef
 </%ARGS>
diff --git a/share/html/Elements/EditCustomFieldDateTime b/share/html/Elements/EditCustomFieldDateTime
index 3d94855..117d271 100644
--- a/share/html/Elements/EditCustomFieldDateTime
+++ b/share/html/Elements/EditCustomFieldDateTime
@@ -46,11 +46,13 @@
 %#
 %# END BPS TAGGED BLOCK }}}
 % my $name = $NamePrefix.$CustomField->Id.'-Values';
-<& /Elements/SelectDate, Name => "$name", current => 0 &> (<%$DateObj->AsString%>)
+<& /Elements/SelectDate, Name => "$name", current => 0, $KeepValue && $Default ? (Default => $Default) : () &> (<%$DateObj->AsString%>)
 
 <%INIT>
 my $DateObj = RT::Date->new ( $session{'CurrentUser'} );
 $DateObj->Set( Format => 'ISO', Value => $Default );
+
+$KeepValue = 1 if !defined $KeepValue && $Default && ( $HTML::Mason::Commands::r->path_info =~ m{\/Create.html$} || $DECODED_ARGS->{'Create'} );
 </%INIT>
 <%ARGS>
 $Object => undef
@@ -59,4 +61,5 @@ $NamePrefix => undef
 $Default => undef
 $Values => undef
 $MaxValues => 1
+$KeepValue => undef
 </%ARGS>

-----------------------------------------------------------------------