Index: openacs-4/packages/bug-tracker/www/admin/versions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/versions.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/bug-tracker/www/admin/versions.tcl	27 Jun 2015 18:01:15 -0000	1.7
+++ openacs-4/packages/bug-tracker/www/admin/versions.tcl	14 Jun 2018 14:31:46 -0000	1.8
@@ -17,8 +17,26 @@
 
 set return_url "versions"
 
-db_multirow -extend { maintainer_url edit_url delete_url release_url } current_version current_version {
-} { 
+set yes [_ acs-kernel.common_Yes]
+set no  [_ acs-kernel.common_No]
+
+db_multirow -extend {
+    maintainer_url
+    edit_url
+    delete_url
+    release_url
+    assignable_p_pretty
+    maintainer_first_names
+    maintainer_last_name
+    maintainer_email
+} current_version current_version {} {
+    set m [acs_user::get -user_id $maintainer]
+    set maintainer_first_names [dict get $m first_names]
+    set maintainer_last_name   [dict get $m last_name]
+    set maintainer_email       [dict get $m email]
+
+    set assignable_p_pretty [expr {$assignable_p ? $yes : $no}]
+    
     set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
         set delete_url [export_vars -base version-delete { version_id }]
@@ -29,8 +47,23 @@
     set maintainer_url [acs_community_member_url -user_id $maintainer]
 }
 
-db_multirow -extend { maintainer_url edit_url delete_url set_active_url } future_version future_versions {
-} { 
+db_multirow -extend {
+    maintainer_url
+    edit_url
+    delete_url
+    set_active_url
+    assignable_p_pretty
+    maintainer_first_names
+    maintainer_last_name
+    maintainer_email
+} future_version future_versions {} {
+    set m [acs_user::get -user_id $maintainer]
+    set maintainer_first_names [dict get $m first_names]
+    set maintainer_last_name   [dict get $m last_name]
+    set maintainer_email       [dict get $m email]
+
+    set assignable_p_pretty [expr {$assignable_p ? $yes : $no}]
+    
     set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
         set delete_url [export_vars -base version-delete { version_id }]
@@ -41,8 +74,22 @@
     set set_active_url [export_vars -base version-set-active { version_id return_url }]
 }
 
-db_multirow -extend { maintainer_url edit_url delete_url } past_version past_versions {
-} { 
+db_multirow -extend {
+    maintainer_url
+    edit_url
+    delete_url
+    assignable_p_pretty    
+    maintainer_first_names
+    maintainer_last_name
+    maintainer_email    
+} past_version past_versions {} {
+    set m [acs_user::get -user_id $maintainer]
+    set maintainer_first_names [dict get $m first_names]
+    set maintainer_last_name   [dict get $m last_name]
+    set maintainer_email       [dict get $m email]
+
+    set assignable_p_pretty [expr {$assignable_p ? $yes : $no}]    
+    
     set edit_url [export_vars -base version-ae { version_id return_url }]
     if { $num_bugs == 0 } {
         set delete_url [export_vars -base version-delete { version_id }]
@@ -52,7 +99,3 @@
     set maintainer_url [acs_community_member_url -user_id $maintainer]
 }
 
-ad_return_template
-
-
-