Index: openacs-4/packages/xowiki/www/admin/test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/xowiki/www/admin/test.tcl 22 Oct 2006 15:33:42 -0000 1.1 +++ openacs-4/packages/xowiki/www/admin/test.tcl 6 Apr 2007 21:55:04 -0000 1.2 @@ -154,9 +154,9 @@ test subsection "Check Permissions based on default policy" ? {::xo::cc user_id} 0 "user_id is guest" -? {::$page_item_id make_link ::$page_item_id delete return_url} "" \ +? {::$package_id make_link ::$page_item_id delete return_url} "" \ "the public cannot delete this page" -? {::$page_item_id make_link -privilege admin -url admin/ $package_id {} {}} "" \ +? {::$package_id make_link -privilege admin -url admin/ $package_id {} {}} "" \ "the public cannot admin this package" ######################################################################## @@ -319,9 +319,9 @@ test subsection "Check Permissions based on default policy" ? {expr {[::xo::cc user_id] != 0}} 1 "user_id [lindex $swas 0] is not guest" -? {expr {[::$page_item_id make_link ::$page_item_id delete return_url] ne ""}} 1 \ +? {expr {[::$package_id make_link ::$page_item_id delete return_url] ne ""}} 1 \ "SWA sees the delete link" -? {expr {[::$page_item_id make_link -privilege admin -url admin/ $package_id {} {}] ne ""}} 1 \ +? {expr {[::$package_id make_link -privilege admin -link admin/ $package_id {} {}] ne ""}} 1 \ "SWA sees admin link" ? {db_string count [::xowiki::Page select_query \ -folder_id [$package_id folder_id] \ @@ -478,7 +478,7 @@ ? {string first Error $content} -1 "page contains no error" ? {::xo::cc exists __continuation} 1 "continuation exists" -? {::xo::cc set __continuation} "ad_returnredirect /$instance_name/en/hello" \ +? {::xo::cc set __continuation} "ad_returnredirect /$instance_name/hello" \ "redirect to hello page" ########################################################################