Index: openacs-4/contrib/packages/bcms/sql/postgresql/bcms-compat.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/sql/postgresql/bcms-compat.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/bcms/sql/postgresql/bcms-compat.sql 30 Oct 2003 15:08:11 -0000 1.1 @@ -0,0 +1,2 @@ +-- you will need this if you are not running 5.0, a backport +select define_function_args('content_folder__new','name,label,description,parent_id,context_id,folder_id,creation_date,creation_user,creation_ip'); Index: openacs-4/contrib/packages/bcms/sql/postgresql/bcms-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/sql/postgresql/bcms-create.sql,v diff -u -r1.8 -r1.9 --- openacs-4/contrib/packages/bcms/sql/postgresql/bcms-create.sql 27 Oct 2003 10:09:10 -0000 1.8 +++ openacs-4/contrib/packages/bcms/sql/postgresql/bcms-create.sql 30 Oct 2003 15:08:11 -0000 1.9 @@ -432,3 +432,4 @@ return v_path; end;' language 'plpgsql'; + Index: openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl 27 Oct 2003 10:09:10 -0000 1.10 +++ openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl 30 Oct 2003 15:08:11 -0000 1.11 @@ -68,13 +68,13 @@ oacs_util::vars_to_ns_set \ -ns_set $extra_vars \ -var_list { name parent_id description context_id folder_id } - + db_transaction { set folder_id [package_instantiate_object \ -extra_vars $extra_vars \ -package_name "content_folder" \ "content_folder"] - + # Set package_id. For some reason, this is not included in the PL/SQL call if { ![empty_string_p $package_id] } { db_dml update_package_id { Index: openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.tcl 28 Oct 2003 10:55:26 -0000 1.9 +++ openacs-4/contrib/packages/bcms/tcl/bcms-item-procs.tcl 30 Oct 2003 15:08:11 -0000 1.10 @@ -395,7 +395,14 @@ return {} } - return [get_item -item_id $item_id -revision $revision] + array set item [get_item -item_id $item_id -revision $revision] + # we need to see if we got any item, if not there is an item but the revision is not live + # since we have a item_id + if {[array size item] > 0} { + return [array get item] + } else { + return [list item_id $item_id] + } } #TODO: use the views to select the revision info