Index: openacs.org-dev/packages/forums/www/index.vuh =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/index.vuh,v diff -u -r1.1 -r1.2 --- openacs.org-dev/packages/forums/www/index.vuh 4 Nov 2002 21:19:49 -0000 1.1 +++ openacs.org-dev/packages/forums/www/index.vuh 4 Nov 2002 22:42:09 -0000 1.2 @@ -21,8 +21,16 @@ # The next element in the list is what we want to look at set url_1st_elem [lindex $request [expr $package_index + 1]] -ns_log notice "REQ: $request, pk: $package, pi: $package_index, u1: $url_1st_elem" +# If the user types a trailing /, we need to redirect so the links +# won't be all screwed. +set size_after_package_url [expr [llength $request] - ($package_index + 1)] +#ns_log notice "REQ: $request, sapu: $size_after_package_url, pk: $package, pi: $package_index, u1: $url_1st_elem" + +if { $size_after_package_url > 1 } { + rp_internal_redirect [join [lrange $request [expr $package_index + 2] end] "/"] +} + if { [string is alpha $url_1st_elem] == 1 } { switch $url_1st_elem { "openacs" {