Index: openacs-4/packages/project-manager/lib/date-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/date-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/project-manager/lib/date-portlet.tcl	26 May 2005 09:34:27 -0000	1.1
+++ openacs-4/packages/project-manager/lib/date-portlet.tcl	30 Jul 2005 00:26:33 -0000	1.2
@@ -14,10 +14,22 @@
 set use_goal_p         [parameter::get -parameter "UseGoalP" -default "1"]
 set use_project_code_p [parameter::get -parameter "UseUserProjectCodesP" -default "1"]
 
+# daily?
+set daily_p [parameter::get -parameter "UseDayInsteadOfHour" -default "f"]
+
+#------------------------
+# Check if the project will be handled on daily basis or will show hours and minutes
+#------------------------
+
+set fmt "%x %r"
+if { $daily_p } {
+    set fmt "%x"
+} 
+
 db_1row project_query { } -column_array project
 
-set project(planned_start_date) [lc_time_fmt $project(planned_start_date) "%x"]
-set project(planned_end_date)   [lc_time_fmt $project(planned_end_date) "%x"]
-set project(estimated_finish_date) [lc_time_fmt $project(estimated_finish_date) "%x"]
-set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) "%x"]
-set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) "%x"]
+set project(planned_start_date) [lc_time_fmt $project(planned_start_date) $fmt]
+set project(planned_end_date)   [lc_time_fmt $project(planned_end_date) $fmt]
+set project(estimated_finish_date) [lc_time_fmt $project(estimated_finish_date) $fmt]
+set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) $fmt]
+set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) $fmt]