Index: openacs-4/packages/forums/www/admin/permissions-user-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/permissions-user-add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/forums/www/admin/permissions-user-add.tcl 21 Sep 2003 19:58:58 -0000 1.1 +++ openacs-4/packages/forums/www/admin/permissions-user-add.tcl 10 Nov 2003 15:12:02 -0000 1.2 @@ -8,9 +8,14 @@ object_id:integer } -forum::get -forum_id $object_id -array forum +if { $object_id == [ad_conn package_id] } { + set what "Package" +} else { + forum::get -forum_id $object_id -array forum + set what "$forum(name)" +} -set page_title "Add User" +set page_title "Add User on $what" -set context [list [list [export_vars -base permissions { object_id }] "$forum(name) Permissions"] $page_title] +set context [list [list [export_vars -base permissions { object_id }] "$what Permissions"] $page_title]