Index: openacs-4/packages/forums/lib/forums/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/edit.tcl,v
diff -u -N -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/forums/lib/forums/edit.tcl 19 Jun 2019 16:41:38 -0000 1.7.2.1
+++ openacs-4/packages/forums/lib/forums/edit.tcl 19 Jun 2019 16:43:21 -0000 1.7.2.2
@@ -1,5 +1,5 @@
ad_page_contract {
-
+
Edit a Forum
@author Ben Adida (ben@openforce.net)
@@ -36,7 +36,7 @@
-anonymous_allowed_p $anonymous_allowed_p \
-attachments_allowed_p $attachments_allowed_p
}
-
+
ad_returnredirect $return_url
ad_script_abort
}
Index: openacs-4/packages/forums/lib/forums/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/new.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/forums/lib/forums/new.tcl 19 Jun 2019 16:41:38 -0000 1.9.2.1
+++ openacs-4/packages/forums/lib/forums/new.tcl 19 Jun 2019 16:43:21 -0000 1.9.2.2
@@ -1,5 +1,5 @@
ad_page_contract {
-
+
Create a Forum
By default redirects to the level above as that is prolly where the index page is
@@ -42,7 +42,7 @@
-anonymous_allowed_p $anonymous_allowed_p \
-attachments_allowed_p $attachments_allowed_p]
}
-
+
ad_returnredirect $return_url
ad_script_abort
}
Index: openacs-4/packages/forums/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/form-procs.tcl,v
diff -u -N -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/forums/tcl/form-procs.tcl 19 Jun 2019 16:41:38 -0000 1.13.2.2
+++ openacs-4/packages/forums/tcl/form-procs.tcl 19 Jun 2019 16:43:21 -0000 1.13.2.3
@@ -123,7 +123,7 @@
{-prefix {}}
form_name
} {
- Constructs the elements of a form for searching for a term
+ Constructs the elements of a form for searching for a term
optionally in a particular forum
} {
template::element create $form_name ${prefix}search_text \
@@ -145,19 +145,19 @@
Constructs the elements of a form for creating/editing a forum
} {
template::element create $form_name ${prefix}name \
- -label [_ forums.Name] \
- -datatype text \
- -widget text \
- -html {size 60} \
- -validate { {expr {[string trim $value] ne ""}} {Forum Name can not be blank} }
+ -label [_ forums.Name] \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ -validate { {expr {[string trim $value] ne ""}} {Forum Name can not be blank} }
template::element create $form_name ${prefix}charter \
- -label [_ forums.Charter] \
- -datatype richtext \
- -widget richtext \
- -html {cols 60 rows 10 style {width: 100%}} \
- -validate { {expr {[string length $value] <= 4000} } {\#forums.charter_max_chars#} } \
- -optional
+ -label [_ forums.Charter] \
+ -datatype richtext \
+ -widget richtext \
+ -html {cols 60 rows 10 style {width: 100%}} \
+ -validate { {expr {[string length $value] <= 4000} } {\#forums.charter_max_chars#} } \
+ -optional
template::element create $form_name ${prefix}presentation_type \
-label [_ forums.Presentation] \
Index: openacs-4/packages/forums/tcl/forums-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.xql,v
diff -u -N -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/forums/tcl/forums-procs.xql 19 Jun 2019 16:41:38 -0000 1.8.2.1
+++ openacs-4/packages/forums/tcl/forums-procs.xql 19 Jun 2019 16:43:21 -0000 1.8.2.2
@@ -37,7 +37,7 @@
-
+
select forums_forums.*
from forums_forums
@@ -51,7 +51,7 @@
set enabled_p = 't'
where forum_id = :forum_id
-
+