Index: openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql 27 Aug 2003 17:23:27 -0000 1.2
+++ openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql 13 Nov 2003 15:12:37 -0000 1.3
@@ -10,12 +10,6 @@
-
-
- select content_revision__new(:title, :description, now(), 'text/html', null, :content, :template_id, null, now(), :creation_user_id, :creation_ip)
-
-
-
select content_template__delete(:template_id)
Index: openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl 27 Aug 2003 17:23:27 -0000 1.2
+++ openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl 13 Nov 2003 15:12:37 -0000 1.3
@@ -13,11 +13,18 @@
{-creation_ip}
} {
This proc creates a template and returns the item_id of the new template
+
+ @param template_name name of the template
+ @param parent_id folder id of where to store the template
+ @param creation_user_id user_id creating this item
+ @param creation_user_ip ip address which this item is created
+
+ @returns the item_id of the new template
} {
if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }
if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
- set item_id [db_exec_plsql create_template "SQL"]
+ set item_id [db_exec_plsql create_template {}]
return $item_id
}
@@ -30,11 +37,24 @@
{-creation_ip}
} {
adds a template revision
+
+ @param template_id item id of the template you want to add a new revision to
+ @param title title of the template
+ @param description description of the template
+ @param content content of the template
+ @param creation_user_id user_id creating this item
+ @param creation_user_ip ip address which this item is created
+
+ @returns the revision_id of the new template revision
+
} {
if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }
if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
- set revision_id [db_exec_plsql add_template "SQL"]
+ set revision_id [bcms::revision::add_revision -item_id $template_id -title $title \
+ -mime_type "text/html" -description $description \
+ -content $content -creation_user_id $creation_user_id \
+ -creation_user_ip $creation_user_ip]
return $revision_id
}
@@ -70,10 +90,10 @@
if {$return_list_p} {
# return a list of lists since its not easy to pass multirow from proc to proc
- return [db_list_of_ns_sets list_templates "SQL"]
+ return [db_list_of_ns_sets list_templates {}]
} else {
# make a multirow, it is likely that this proc is not being called from another proc
- db_multirow $multirow_name list_templates "SQL"
+ db_multirow $multirow_name list_templates {}
}
}
@@ -83,15 +103,19 @@
{-template_id:required}
} {
Delete a template
+
+ @param template_id item id of the template that will be deleted
} {
- return [db_exec_plsql delete_template "SQL"]
+ return [db_exec_plsql delete_template {}]
}
# for possible contribution
ad_proc -public bcms::template::get_cr_root_template_folder {} {
gets the folder_id of the template root of cr
+
+ @returns the folder id of the root CR template
} {
- set template_root [db_exec_plsql get_template_root "SQL"]
+ set template_root [db_exec_plsql get_template_root {}]
return $template_root
}
@@ -102,13 +126,17 @@
} {
applies a template to a content item with the context given or the current
context of BCDS
+
+ @param item_id item you want to apply a template
+ @param template_id the template you want to use for the item
+ @param context context of which the template is used
} {
if ![info exists context] {
set context [parameter::get -parameter context]
}
- db_exec_plsql apply_template "SQL"
+ db_exec_plsql apply_template {}
}
@@ -118,23 +146,33 @@
{-context ""}
} {
unregister a template for a item_id
+
+ @param item_id item you want to remove a template
+ @param template_id the template you want to unregister
+ @param context context of which the template
} {
- db_exec_plsql unregister_template "SQL"
+ db_exec_plsql unregister_template {}
}
ad_proc -public bcms::template::get_template {
{-item_id:required}
{-context}
} {
gets the template of the content item on the context specified
+
+ @param item_id item you want to get a template
+ @param context the context of the template
+
+ @returns an array that contains properties of the template, if no
+ template is found it returns a blank array.
} {
if ![info exists context] {
- set context [parameter::get -parameter context]
+ set context [parameter::get -parameter context]
}
- if {[db_0or1row get_template "SQL" -column_array one_template]} {
- return [array get one_template]
+ if {[db_0or1row get_template {} -column_array one_template]} {
+ return [array get one_template]
} else {
- return {}
+ return {}
}
}
Index: openacs-4/contrib/packages/bcms/tcl/bcms-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-widget-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/contrib/packages/bcms/tcl/bcms-widget-procs.tcl 30 Oct 2003 15:08:11 -0000 1.8
+++ openacs-4/contrib/packages/bcms/tcl/bcms-widget-procs.tcl 13 Nov 2003 15:12:38 -0000 1.9
@@ -62,6 +62,8 @@
-display_columns:required
{-separator " > "}
} {
+ NOTE maybe candidate for removal
+
makes and option list for ad_form option_list. makes a trail on each
select item until the -value_column changes.