[Rt-commit] r12607 - in rt/branches/3.8-TESTING: share/html/REST/1.0/Forms/ticket

[sartak at bestpractical.com]

Author: sartak
Date: Wed May 21 12:15:35 2008
New Revision: 12607

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/share/html/REST/1.0/Forms/ticket/default

Log:
 r56481 at onn:  sartak | 2008-05-21 12:14:51 -0400
 Flexibly parse date strings in REST ticket creation. Resolves #9049.


Modified: rt/branches/3.8-TESTING/share/html/REST/1.0/Forms/ticket/default
==============================================================================
--- rt/branches/3.8-TESTING/share/html/REST/1.0/Forms/ticket/default	(original)
+++ rt/branches/3.8-TESTING/share/html/REST/1.0/Forms/ticket/default	Wed May 21 12:15:35 2008
@@ -127,6 +127,13 @@
         my (%v, $text);
 
         foreach my $k (keys %data) {
+            # flexibly parse any dates
+            if ($dates{lc $k}) {
+                my $time = new RT::Date $session{CurrentUser};
+                $time->Set(Format => 'unknown', Value => $data{$k});
+                $data{$k} = $time->ISO;
+            }
+
             if (exists $create{lc $k}) {
                 $v{$create{lc $k}} = delete $data{$k};
             }