Index: openacs-4/packages/cms/www/modules/items/revision-add-1.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/revision-add-1.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/cms/www/modules/items/revision-add-1.tcl 20 Apr 2001 20:51:10 -0000 1.1 +++ openacs-4/packages/cms/www/modules/items/revision-add-1.tcl 24 May 2001 01:30:52 -0000 1.2 @@ -5,17 +5,15 @@ request create request set_param item_id -datatype integer -set db [template::get_db_handle] - # check permissions content::check_access $item_id cm_write -user_id [User::getID] -db $db -template::query content_type onevalue " +template::query get_content_type content_type onevalue " select content_item.get_content_type( :item_id ) from dual -" -db $db +" # flush the sitemap folder listing cache in anticipation @@ -26,24 +24,19 @@ if { [file exists [ns_url2file \ "custom/$content_type/revision-add-1.tcl"]] } { - template::release_db_handle template::forward "custom/$content_type/revision-add-1?item_id=$item_id" } -template::query name onevalue " +template::query get_name name onevalue " select name from cr_items where - item_id = :item_id" -db $db + item_id = :item_id" -template::release_db_handle - - - # if we have an invalid item_id, then throw error if { [template::util::is_nil name] } { template::request::error bad_item_id \