Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.31 -r1.4.2.32
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	18 Nov 2004 21:04:20 -0000	1.4.2.31
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	19 Nov 2004 22:43:19 -0000	1.4.2.32
@@ -1975,8 +1975,13 @@
 
 ad_proc -public pm::task::date_html {
     {-selected_month ""}
-    {-selected_day ""}
-    {-selected_year ""}
+    {-selected_day   ""}
+    {-selected_year  ""}
+    {-show_help_p    "t"}
+    {-month_target   "end_date_month"}
+    {-day_target     "end_date_day"}
+    {-year_target    "end_date_year"}
+
 } {
     Returns HTML for the date widget in the task-add-edit page
     
@@ -1999,11 +2004,11 @@
     }
     set selected_[set selected_month] "selected=\"selected\""
 
-    return "
+    set return_val "
         <table border=\"0\" cellpadding=\"0\" cellspacing=\"2\">
           <tr>
             <td nowrap=\"nowrap\">
-              <select name=\"end_date_month\" >
+              <select name=\"$month_target\" >
                 <option value=\"\">--</option>
                 <option $selected_01 value=\"1\">January</option>
                 <option $selected_02 value=\"2\">February</option>
@@ -2019,11 +2024,14 @@
                 <option $selected_12 value=\"12\">December</option>
               </select>&nbsp;</td>
             <td nowrap=\"nowrap\">
-              <input type=\"text\" name=\"end_date_day\" size=\"2\" value=\"$selected_day\" />
+              <input type=\"text\" name=\"$day_target\" size=\"2\" value=\"$selected_day\" />
             </td>
-            <td nowrap=\"nowrap\"><input type=\"text\" name=\"end_date_year\" size=\"4\" maxlength=\"4\" value=\"$selected_year\" />
+            <td nowrap=\"nowrap\"><input type=\"text\" name=\"$year_target\" size=\"4\" maxlength=\"4\" value=\"$selected_year\" />
             </td>
-          </tr>
+          </tr>"
+
+    if {[string is true $show_help_p]} {
+        append return_val "
           <tr>
             <td nowrap=\"nowrap\" align=\"center\">
               <font size=\"-2\">Month</font>
@@ -2034,9 +2042,12 @@
             <td nowrap=\"nowrap\" align=\"center\">
               <font size=\"-2\">Year</font>
             </td>
-          </tr>
-        </table>"
+          </tr>"
+    }
 
+    append return_val "</table>"
+
+    return $return_val
 }
 
 
@@ -2438,3 +2449,37 @@
 
     }
 }
+
+
+ad_proc -public pm::task::today_html {
+    {-show_help_p "f"}
+    {-month_target   "end_date_month"}
+    {-day_target     "end_date_day"}
+    {-year_target    "end_date_year"}
+
+} {
+    Returns today in an html form widget
+    
+    @author  (jader-ibr@bread.com)
+    @creation-date 2004-11-18
+    
+    @return 
+    
+    @error 
+} {
+
+    set today_day   [clock format [clock scan today] -format "%d"]
+    set today_month [clock format [clock scan today] -format "%m"]
+    set today_year  [clock format [clock scan today] -format "%Y"]
+
+    set return_val [pm::task::date_html \
+                        -selected_month $today_month \
+                        -selected_day   $today_day \
+                        -selected_year  $today_year \
+                        -show_help_p    $show_help_p \
+                        -month_target   $month_target \
+                        -day_target     $day_target \
+                        -year_target    $year_target]
+
+    return $return_val
+}