datetime to dojo date

Steve MARECHAL
1 parent 56b2af63
Showing 1 changed file with 73 additions and 3 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -73,7 +73,7 @@ public type Input_Type:
   password.
 public type InputDial:
-  input_dial(String id, Input_Type input_type, String label),
+  input_dial(String id, Input_Type input_type, String label, Maybe(String) class),
   input_date(String id, String label),
   input_combo(String label, HtmlId id, WebArgName name, List((WebArgValue,String)) list_data).
@@ -118,9 +118,19 @@ define HTML_Off_Form
   )=
   if input_data is 
   {
-    input_dial(id, input, label) then
+    input_dial(id, input, label, class) then
       sequence([ 
-        literal("<div id=\"" + id +"_block\"><label for=\"" + id + "\"> " + label + "</label>"), 
+        literal("<div id=\"" + id +"_block\"" +
+        if class is
+        {
+          failure then "",
+          success(class_name) then " class=\"block_"+ class_name +"\""
+        }+"><label for=\"" + id + "\" id=\"label_" + id + "\"" +
+        if class is
+        {
+          failure then "",
+          success(class_name) then " class=\"label_" + class_name + "\""
+        }+">" + label + "</label>"),
         literal("<input dojoType=dijit.form.TextBox " +
         if input is
         {
@@ -686,3 +696,63 @@ public define HTML_Off_Form
      div([id(html_id.id), class("progress_bar"), attr("indeterminate", "true"), attr("dojoType", "dijit.ProgressBar") . attributes], literal(""))
    ]).
+define Maybe(Int)
+  string_to_month
+  (
+    String month_s
+  )=
+  with month = to_lower(month_s),
+  if      month = "jan" then success(1)
+  else if month = "feb" then success(2)
+  else if month = "mar" then success(3)
+  else if month = "apr" then success(4)
+  else if month = "may" then success(5)
+  else if month = "jun" then success(6)
+  else if month = "jul" then success(7)
+  else if month = "aug" then success(8)
+  else if month = "sep" then success(9)
+  else if month = "oct" then success(10)
+  else if month = "nov" then success(11)
+  else if month = "dec" then success(12)
+  else failure
+  .
+
+
+//  'Thu Jan 14 2010 00:00:00 GMT+0100' must be replaced by '2010-01-14 00:00:00'
+
+
+
+public define Maybe(String)
+  dojo_date_to_db_datetime
+  (
+    String data
+  )=
+  with list_data = split_by_token(data, ' '),
+  if nth(2, list_data) is
+  {
+    failure then failure,
+    success(day) then
+      if nth(1, list_data) is
+      {
+        failure then failure,
+        success(month) then
+          if nth(3, list_data) is
+          {
+            failure then failure,
+            success(year) then
+              if nth(4, list_data) is
+              {
+                failure then failure,
+                success(hour) then
+                  if string_to_month(month) is
+                  {
+                    failure then failure,
+                    success(month_int) then
+                      success(year+"-"+month_int+"-"+day+" "+hour)
+                  }
+              }
+          }
+      }
+  }.
+   
+