Index: openacs-4/packages/bug-tracker/www/com/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/com/index.vuh,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/com/index.vuh	29 Aug 2002 15:15:13 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/com/index.vuh	11 Sep 2002 14:03:26 -0000	1.2
@@ -1,14 +1,24 @@
-set extra_url_list [split [ad_conn extra_url] "/"]
+if { ![regexp {com/([^/]+)/(.*)$} [ad_conn extra_url] match url_name rest] } {
+    # Try adding a slash
+    ad_returnredirect "[ad_conn url]/"
+    return
+}
 
-set url_name [lindex $extra_url_list 1]
 set package_id [ad_conn package_id]
 
 set found_p [db_0or1row component { select component_id from bt_components where project_id = :package_id and url_name = :url_name }]
 
 if { $found_p } {
-    rp_form_put component_id $component_id
-    rp_internal_redirect [file join / packages bug-tracker www index]
+        
+    if { [empty_string_p $rest] } {
+        set rest "index"
+    }
 
+    bug_tracker::conn -set component_id $component_id
+   
+    set redirect_to [file join / packages bug-tracker www $rest]
+        
+    rp_internal_redirect $redirect_to
 } else {
     ns_returnnotfound
 }