Index: openacs-4/packages/address-book/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/index.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/address-book/www/index.tcl 1 Sep 2001 20:34:19 -0000 1.2 +++ openacs-4/packages/address-book/www/index.tcl 6 Sep 2002 21:50:19 -0000 1.3 @@ -11,7 +11,7 @@ {substr:trim,optional ""} } -properties { instance_name:onevalue - context_bar:onevalue + context:onevalue user_id:onevalue create_p:onevalue admin_p:onevalue @@ -27,7 +27,7 @@ set instance_name [db_exec_plsql package_name {begin :1 := acs_object.name(:instance_id); end;}] -set context_bar [ad_context_bar] +set context [list] set create_p [ad_permission_p $instance_id create]