- fixed permission issue for timesheet_list_component:

  Not shown only if !read AND not view_tasks_all.
  Before it was OR.

tcl/intranet-timesheet2-tasks-procs.tcl

@@ -93,7 +93,8 @@ ad_proc -public im_timesheet_task_list_component {
     set end_idx [expr $start_idx + $max_entries_per_page - 1]
 
     im_project_permissions $user_id $restrict_to_project_id view read write admin
-    if {!$read || ![im_permission $user_id view_timesheet_tasks_all]} { return ""}
+
+    if {!$read && ![im_permission $user_id view_timesheet_tasks_all]} { return ""}
 
     set view_id [db_string get_view_id "select view_id from im_views where view_name=:view_name" -default 0]
     if {0 == $view_id} {
@@ -144,9 +145,9 @@ ad_proc -public im_timesheet_task_list_component {
     "
 
     db_foreach column_list_sql $column_sql {
-	if {"" == $visible_for || [eval $visible_for]} {
-        lappend column_headers "$column_name"
-        lappend column_vars "$column_render_tcl"
+	if {1 || "" == $visible_for || [eval $visible_for]} {
+	    lappend column_headers "$column_name"
+	    lappend column_vars "$column_render_tcl"
 	}
     }
     ns_log Notice "im_timesheet_task_component: column_headers=$column_headers"