Index: openacs-4/contrib/packages/bcms/tcl/bcms-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/bcms/tcl/bcms-procs-postgresql.xql 14 May 2003 15:34:59 -0000 1.1
+++ openacs-4/contrib/packages/bcms/tcl/bcms-procs-postgresql.xql 11 Nov 2003 15:46:26 -0000 1.2
@@ -9,24 +9,6 @@
-
-
- update cr_folders set package_id = :package_id where folder_id = :root_folder_id
-
-
-
-
-
- select content_folder__register_content_type (:folder_id, :content_type, 't');
-
-
-
-
-
- select content_folder__is_registered (:folder_id, :content_type, 'f');
-
-
-
Index: openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl 29 Oct 2003 15:03:46 -0000 1.7
+++ openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl 11 Nov 2003 15:46:26 -0000 1.8
@@ -4,7 +4,7 @@
@author Jun Yamog
@creation-date 10 Aug 2002
- @cvs-id bcms-procs.tcl,v 1.2 2002/10/10 07:34:49 nsadmin Exp
+ @cvs-id $Id$
}
namespace eval bcms {}
@@ -13,127 +13,22 @@
ad_proc -public bcms::get_table_name {
-object_type:required
} {
- returns the table name of a particular object_type
+ @param object_type the object_type of an object, normally the content_type since we are dealing with cms
+
+ @returns the table name of a particular object_type
} {
- return [db_string get_table_name "SQL"]
+ return [db_string get_table_name {}]
}
# for possible contribution
ad_proc -public bcms::get_next_objectid { } {
- returns the next acs objectID sequence from the database
+ @returns the next acs objectID sequence from the database
} {
- return [db_string get_next_objectid "SQL"]
+ return [db_string get_next_objectid {}]
}
-# for possible contribution
-ad_proc -public bcms::wizard_step {
- {-back:boolean false}
- {-set_param_list}
-} {
- creates the url for the wizard
-
- -set_param_list is a list of parameters that you would like to set in the
- wizard. It must be in a form of "varname value" pairs
-} {
- # build the parameter list
- if [info exists set_param_list] {
- for {set i 0} {$i < [llength $set_param_list]} {set i [expr $i + 2]} {
- template::wizard set_param [lindex $set_param_list $i] \
- [lindex $set_param_list [expr $i + 1]]
- }
- }
-
- if {$back_p} {set step_no -1} else {set step_no 1}
- return [template::wizard::get_forward_url [expr [template::wizard current_step] + $step_no]]
-}
-
-
-# TODO: move this out of bcms? Since this is a UI specific requirement
-ad_proc -public bcms::init_bcms {
- -root_folder:required
- -root_folder_label:required
- {-description ""}
-} {
- Makes a new bcms instance. creates the root folder and default subfolders
- then registers the content types, creates also an index page on the pages folder
-} {
- set cr_folder_root [bcms::folder::get_cr_root_folder]
-
- db_transaction {
-
- # create the root folder
- set root_folder_id [bcms::folder::create_folder -name $root_folder \
- -folder_label $root_folder_label -parent_id $cr_folder_root \
- -description $description]
-
- # register the content types to the folders
- # we register the content type to the root folder to be flexible
- # even though we have created the default folders
- register_content_type -folder_id $root_folder_id -content_type bcms_page
- register_content_type -folder_id $root_folder_id -content_type bcms_file
-
- # bind this package instance to that cr_folder
- # we are going to populate the root bcms package_id column only
- set package_id [ad_conn package_id]
- db_dml update_package_id "SQL"
-
- # create the default subfolders
- set pages_folder_id [bcms::folder::create_folder -name "pages" \
- -folder_label "Pages" -parent_id $root_folder_id \
- -description "This folder holds web pages"]
- set images_folder_id [bcms::folder::create_folder -name "images" \
- -folder_label "Images" -parent_id $root_folder_id \
- -description "This folder holds images"]
- set files_folder_id [bcms::folder::create_folder -name "files" -folder_label "Files" \
- -parent_id $root_folder_id \
- -description "This folder holds files"]
-
- # create the index page for the folder
- set item_id [bcms::item::create_item -item_name index -parent_id $pages_folder_id \
- -content_type bcms_page -storage_type text]
-
- # create an initial revision that is blank
- set revision_id [bcms::revision::revision_create_in_text -item_id $item_id \
- -title $root_folder_label -content "" -description $description \
- -mime_type "text/html" ]
-
- # create the template folder
- set template_folder_id [bcms::folder::create_folder -name $root_folder \
- -folder_label $root_folder_label -parent_id [bcds::get_cr_template_root] \
- -description $description]
- parameter::set_value -parameter template_folder_id -value $template_folder_id
-
- }
- ns_log notice "bcms::init created root folder id $root_folder_id"
-}
-
-
-ad_proc -public bcms::register_content_type {
- -folder_id:required
- -content_type:required
-} {
- register a content type to a folder
-} {
- db_exec_plsql register_content_type "SQL"
-}
-
-ad_proc -public bcms::is_registered_content_type {
- -folder_id:required
- -content_type:required
-} {
- checks to see if a content type is registered on a folder
-} {
- set result [db_exec_plsql check_content_type "SQL"]
- if {$result == "t"} {
- return 1
- } else {
- return 0
- }
-}
-
-
ad_proc -public bcms::create_page {
{-page_name:required}
{-folder_id:required}