fixing project sub_navbar

www/index.adp

@@ -6,9 +6,8 @@
 <property name="title">@page_title@</property>
 <property name="context">@context_bar@</property>
 <property name="main_navbar_label">projects</property>
+<property name="sub_navbar">@sub_navbar;noquote@</property>
 
-<br>
-@project_menu;noquote@
 
 <table border=0 cellpadding=0 cellspacing=0>
 <tr>

www/index.tcl

@@ -96,5 +96,10 @@ set task_content [im_timesheet_task_list_component \
 set bind_vars [ns_set create]
 ns_set put $bind_vars project_id $project_id
 set project_menu_id [db_string parent_menu "select menu_id from im_menus where label='project'" -default 0]
-set project_menu [im_sub_navbar $project_menu_id $bind_vars "" "pagedesriptionbar" "project_timesheet_task"]
+
+set sub_navbar [im_sub_navbar \
+    -components \
+    -base_url "/intranet/projects/view?project_id=$project_id" \
+    $project_menu_id \
+    $bind_vars "" "pagedesriptionbar" "project_timesheet_task"] 
 

www/new.adp

@@ -3,7 +3,7 @@
 <property name="context">@context;noquote@</property>
 <property name="main_navbar_label">projects</property>
 <property name="focus">@focus;noquote@</property>
-<property name="sub_navbar">@project_menu;noquote@</property>
+<property name="sub_navbar">@sub_navbar;noquote@</property>
 
 
 <if @message@ not nil>

www/new.tcl

@@ -270,5 +270,10 @@ where
 set bind_vars [ns_set create]
 ns_set put $bind_vars project_id $project_id
 set project_menu_id [db_string parent_menu "select menu_id from im_menus where label='project'" -default 0]
-set project_menu [im_sub_navbar $project_menu_id $bind_vars "" "pagedesriptionbar" "project_timesheet_task"]
+set sub_navbar [im_sub_navbar \
+    -components \
+    -base_url "/intranet/projects/view?project_id=$project_id" \
+    $project_menu_id \
+    $bind_vars "" "pagedesriptionbar" "project_timesheet_task"] 
+