Index: openacs-4/packages/news-aggregator/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/index.vuh,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/news-aggregator/www/index.vuh	20 Mar 2004 11:04:39 -0000	1.1
+++ openacs-4/packages/news-aggregator/www/index.vuh	18 Jul 2018 15:43:20 -0000	1.2
@@ -1,13 +1,12 @@
 set path_info_list [split [ad_conn path_info] "/"]
 
-set aggregator_id [lindex $path_info_list 0]
-set form [rp_getform]
-if { [string equal [ns_set iget $form aggregator_id] ""] } {
-	rp_form_put aggregator_id $aggregator_id
+set aggregator_id [ns_set iget [rp_getform] aggregator_id]
+if {$aggregator_id eq ""} {
+    set aggregator_id [lindex $path_info_list 0]
+    rp_form_put aggregator_id $aggregator_id
 }
 
-if { [llength $path_info_list] == 2 } {
-    rp_internal_redirect "/packages/news-aggregator/www/[lindex $path_info_list 1]" 
-} else {
-    rp_internal_redirect "/packages/news-aggregator/www/index"
-}
+set url [expr {[llength $path_info_list] == 2 ?
+               [lindex $path_info_list 1] : "index"}]
+rp_internal_redirect "/packages/news-aggregator/www/${url}"
+