Index: openacs-4/packages/contacts/lib/contacts-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts-master.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/contacts/lib/contacts-master.tcl 23 Oct 2005 10:47:08 -0000 1.10 +++ openacs-4/packages/contacts/lib/contacts-master.tcl 10 Dec 2005 11:21:22 -0000 1.11 @@ -48,6 +48,7 @@ # Convert the list to a multirow and add the selected_p attribute multirow create links label url selected_p +set navbar {} foreach {url label} $link_list { set selected_p 0 @@ -59,6 +60,7 @@ set title $label } } + lappend navbar [list [subst $url] $label] multirow append links $label [subst $url] $selected_p }