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 - +