- added ordering of homepage project by end_date DESC

tcl/intranet-project-procs.tcl

@@ -106,7 +106,7 @@ ad_proc -public im_project_permissions {user_id project_id view_var read_var wri
     set user_in_project_group_p [string compare "t" [db_string user_belongs_to_project "select ad_group_member_p( :user_id, :project_id ) from dual" ] ]
 
     # Treat the project mangers_fields
-    # A user may for some reason not be the group PM
+    # A user man for some reason not be the group PM
     if {!$user_is_group_admin_p} {
 	set project_manager_id [db_string project_manager "select project_lead_id from im_projects where project_id = :project_id" -default 0]
 	if {$user_id == $project_manager_id} {
@@ -154,10 +154,7 @@ ad_proc -public im_project_permissions {user_id project_id view_var read_var wri
 #    if {$user_is_company_member_p} { set read 1}
 
     if {$user_is_group_member_p} { set read 1}
-    if {[im_permission $user_id view_projects_all]} { 
-	set read 1
-    }
-
+    if {[im_permission $user_id view_projects_all]} { set read 1}
     if {[im_permission $user_id edit_projects_all]} { 
 	set read 1
 	set write 1
@@ -617,6 +614,7 @@ order by
 	WHERE
 		p.company_id = c.company_id
 		$project_history_restriction
+	order by end_date DESC
     "
 
     
@@ -753,13 +751,9 @@ ad_proc im_project_clone {
     if {$clone_trans_tasks_p && [db_table_exists "im_trans_tasks"]} {
 	append errors [im_project_clone_trans_tasks $parent_project_id $new_project_id]
     }
-
-# Fraber 060202: There are no timesheet_tasks (?)
-#    if {$clone_timesheet_tasks_p && [db_table_exists "im_timesheet_tasks"]} {
-#	append errors [im_project_clone_timesheet_tasks $parent_project_id $new_project_id]
-#    }
-
-
+    if {$clone_timesheet_tasks_p && [db_table_exists "im_timesheet_tasks"]} {
+	append errors [im_project_clone_timesheet_tasks $parent_project_id $new_project_id]
+    }
     if {$clone_target_languages_p && [db_table_exists "im_target_languages"]} {
 	append errors [im_project_clone_target_languages $parent_project_id $new_project_id]
     }
@@ -1682,4 +1676,4 @@ ad_proc im_project_nuke {project_id} {
 	return
     }
     set return_to_admin_link "<a href=\"/intranet/projects/\">[_ intranet-core.lt_return_to_user_admini]</a>" 
-}
+}
\ No newline at end of file