- replaced a faulty index.tcl by a forward to /intranet/

www/trans-tasks/index.tcl

-# /packages/intranet-translation/www/trans-tasks/index.tcl
+# /packages/intranet-translation/www/index.tcl
 #
 # Copyright (C) 2003-2004 Project/Open
 #
 # All rights reserved. Please check
-# http://www.project-open.com/license/ for details.
-
+# http://www.project-open.com/ for licensing details.
 
 ad_page_contract {
     Show the list of current task and allow the project
@@ -12,56 +11,11 @@ ad_page_contract {
 
     @author frank.bergmann@project-open.com
 } {
-    group_id:optional
-}
-set user_id [ad_maybe_redirect_for_registration]
-set return_url [im_url_with_query]
-set page_title "Project Tasks"
-set context_bar [ad_context_bar [list /intranet/projects/ "Projects"] [list "/intranet/projects/view?group_id=$group_id" "One project"] $page_title]
-set task_return_url "/intranet/trans-tasks/task-list?[export_url_vars group_id return_url]"
-
-set missing_task_list [im_task_missing_file_list $group_id]
-
-set page_body "
-
-[im_task_component $user_id $group_id $return_url]
-
---------------
-
-[im_new_task_component $user_id $group_id $return_url]
-
---------------
-
-[im_task_status_component $user_id $group_id $task_return_url]
 
---------------
-
-[im_task_error_component $user_id $group_id $return_url]
-
---------------
-
-<br><a href=task-trados?[export_url_vars group_id return_url]>trados</a>
-"
+}
 
 db_release_unused_handles
-doc_return  200 text/html [im_return_template]
-
+ad_returnredirect "/intranet/"
 
 
-set sql_task "
-select task_id, task_name
-from im_trans_tasks
-where project_id = :group_id"
-
-set list_task ""
-set project_id $group_id
-
-db_foreach tasks $sql_task {
-    append list_task "<a href=\"download-task?[export_url_vars project_id task_id return_url=]\">$task_name</a> <br><br><p>"
-}
-
-append page_body "
-<br><br>
-$list_task
-"