Index: openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl	15 Oct 2003 12:35:51 -0000	1.1
@@ -0,0 +1,68 @@
+# Initialize namespaces, global macros and filters for ArsDigita Templating
+# System
+
+# Copyright (C) 1999-2000 ArsDigita Corporation
+# Author: Karl Goldstein (karlg@arsdigita.com)
+# $Id: 0-acs-templating-procs.tcl,v 1.1 2003/10/15 12:35:51 dirkg Exp $
+
+# This is free software distributed under the terms of the GNU Public
+# License.  Full text of the license is available from the GNU Project:
+# http://www.fsf.org/copyleft/gpl.html
+
+# Initialize namespaces used by template procs
+
+ad_proc -public template_tag { name arglist body } {
+    Generic wrapper for registered tag handlers.
+} {
+
+  # LARS:
+  # We only ns_register_adptag the tag if it hasn't already been registered
+  # (if the proc doesn't exist).
+  # This makes debugging templating tags so much easier, because you don't have
+  # to restart the server each time.
+  set exists_p [llength [info procs template_tag_$name]]
+
+  switch [llength $arglist] {
+
+    1 { 
+
+      # empty tag
+      eval "proc template_tag_$name { params } {
+	
+	template::adp_tag_init $name
+	
+	$body
+
+        return \"\"
+      }"
+
+      if { !$exists_p } {
+        ns_register_adptag $name template_tag_$name 
+      }
+    }
+
+    2 { 
+
+      # balanced tag so push on/pop off tag name and parameters on a stack
+      eval "proc template_tag_$name { chunk params } {
+	
+	template::adp_tag_init $name
+
+	variable template::tag_stack
+	lappend tag_stack \[list $name \$params\]
+	
+	$body
+
+	template::util::lpop tag_stack
+
+        return \"\"
+      }"
+
+      if { !$exists_p } {
+        ns_register_adptag $name /$name template_tag_$name 
+      }
+    }
+
+    default { error [_ acs-templating.Tag_handler_invalid_number_of_args] }
+  }
+}
Index: openacs-4/packages/acs-templating/tcl/0-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/Attic/0-procs.tcl,v
diff -u -N
--- openacs-4/packages/acs-templating/tcl/0-procs.tcl	28 Aug 2003 09:41:45 -0000	1.12
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,158 +0,0 @@
-# Initialize namespaces, global macros and filters for ArsDigita Templating
-# System
-
-# Copyright (C) 1999-2000 ArsDigita Corporation
-# Author: Karl Goldstein (karlg@arsdigita.com)
-# $Id: 0-procs.tcl,v 1.12 2003/08/28 09:41:45 lars Exp $
-
-# This is free software distributed under the terms of the GNU Public
-# License.  Full text of the license is available from the GNU Project:
-# http://www.fsf.org/copyleft/gpl.html
-
-# Initialize namespaces used by template procs
-
-namespace eval template {
-
-  namespace export query request form element
-
-  # namespaces for cached datasource and template procedures
-
-  namespace eval code {
-    namespace eval tcl {}
-    namespace eval adp {}
-  }
-
-  # namespaces for mtime checking procedures on datasource and
-  # template files
-  namespace eval mtimes {
-    namespace eval tcl {}
-    namespace eval adp {}
-  }
-
-  namespace eval query {}
-  namespace eval util {
-    namespace eval date {}
-    namespace eval currency {}
-    namespace eval file {}
-  }
-
-  namespace eval element {
-
-    # default settings 
-    variable defaults
-    set defaults [list widget text datatype integer values {} help_text {} before_html {} after_html {}]
-  }
-
-  namespace eval request {}
-
-  namespace eval widget {
-    namespace eval table {}
-  }
-
-  namespace eval form {
-    
-    # default settings
-    variable defaults
-    set defaults [list method post section {} mode edit edit_buttons { { "OK" ok } } display_buttons { { "Edit" edit } } show_required_p t]
-  }
-
-  namespace eval wizard {
-    
-    # stack level at which wizard is created
-    variable parse_level
-    # An array of default buttons and their names
-    variable default_button_labels
-    array set default_button_labels \
-      [list back "<< Previous" repeat "Repeat" next "Next >>" finish "Finish"]
-  }
-
-  namespace eval paginator {
-    
-    # stack level at which paginator is created
-    variable parse_level
-
-    # Default values for paginator properties
-    variable defaults
-    set defaults [list pagesize 20 timeout 600 groupsize 10]
-  }
-
-  namespace eval data {
-    namespace eval validate {}
-    namespace eval transform {}
-  }
-
-  # keep track of the stack frame in which a template is rendered at run-time
-  variable parse_level
-
-  # used for compiling Tcl code from ADP template
-  variable parse_list
-
-  # used to keep track of nested tags
-  variable tag_stack
-
-  # used to keep a list of filter procedures to execute
-  variable filter_list
-  set filter_list [list]
-
-  # filters may set or modify the URL to replace ns_conn url
-  variable url
-
-  # specify what procs can be accessed directly
-  namespace export form element request
-}
-
-ad_proc -public template_tag { name arglist body } {
-    Generic wrapper for registered tag handlers.
-} {
-
-  # LARS:
-  # We only ns_register_adptag the tag if it hasn't already been registered
-  # (if the proc doesn't exist).
-  # This makes debugging templating tags so much easier, because you don't have
-  # to restart the server each time.
-  set exists_p [llength [info procs template_tag_$name]]
-
-  switch [llength $arglist] {
-
-    1 { 
-
-      # empty tag
-      eval "proc template_tag_$name { params } {
-	
-	template::adp_tag_init $name
-	
-	$body
-
-        return \"\"
-      }"
-
-      if { !$exists_p } {
-        ns_register_adptag $name template_tag_$name 
-      }
-    }
-
-    2 { 
-
-      # balanced tag so push on/pop off tag name and parameters on a stack
-      eval "proc template_tag_$name { chunk params } {
-	
-	template::adp_tag_init $name
-
-	variable template::tag_stack
-	lappend tag_stack \[list $name \$params\]
-	
-	$body
-
-	template::util::lpop tag_stack
-
-        return \"\"
-      }"
-
-      if { !$exists_p } {
-        ns_register_adptag $name /$name template_tag_$name 
-      }
-    }
-
-    default { error "Invalid number of arguments to tag handler." }
-  }
-}
Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl	10 Oct 2003 19:15:04 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl	15 Oct 2003 12:35:51 -0000	1.12
@@ -59,7 +59,7 @@
             2 { lappend template_params [lindex $param 0]
                 lappend template_params [lindex $param 1]
               }
-            default { return -code error "Error in parameter list" }
+            default { return -code error [_ acs-templating.Template_parser_error_in_parameter_list] }
         }
     }
     return [uplevel [list template::adp_parse [template::util::url_to_file $template [ad_conn file]] $template_params]]
Index: openacs-4/packages/acs-templating/tcl/acs-templating-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-templating-init.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-templating/tcl/acs-templating-init.tcl	15 Oct 2003 12:35:51 -0000	1.1
@@ -0,0 +1,113 @@
+# Initialize namespaces, global macros and filters for ArsDigita Templating
+# System
+
+# Copyright (C) 1999-2000 ArsDigita Corporation
+# Author: Karl Goldstein (karlg@arsdigita.com)
+# $Id: acs-templating-init.tcl,v 1.1 2003/10/15 12:35:51 dirkg Exp $
+
+# This is free software distributed under the terms of the GNU Public
+# License.  Full text of the license is available from the GNU Project:
+# http://www.fsf.org/copyleft/gpl.html
+
+# Initialize namespaces used by template procs
+
+namespace eval template {}
+namespace eval template::form {}
+
+namespace eval template {
+
+  namespace export query request form element
+
+  # namespaces for cached datasource and template procedures
+
+  namespace eval code {
+    namespace eval tcl {}
+    namespace eval adp {}
+  }
+
+  # namespaces for mtime checking procedures on datasource and
+  # template files
+  namespace eval mtimes {
+    namespace eval tcl {}
+    namespace eval adp {}
+  }
+
+  namespace eval query {}
+  namespace eval util {
+    namespace eval date {}
+    namespace eval currency {}
+    namespace eval file {}
+  }
+
+  namespace eval element {
+
+    # default settings 
+    variable defaults
+    set defaults [list widget text datatype integer values {} help_text {} before_html {} after_html {}]
+  }
+
+  namespace eval request {}
+
+  namespace eval widget {
+    namespace eval table {}
+  }
+
+  namespace eval form {
+    
+    # default settings
+    variable defaults
+    set defaults \
+        [list \
+             method post \
+             section {} \
+             mode edit \
+             edit_buttons [list [list [_ acs-kernel.common_ok] ok ]] \
+             display_buttons [list [list [_ acs-kernel.common_edit] edit]] \
+             show_required_p t]
+  }
+
+  namespace eval wizard {
+    
+    # stack level at which wizard is created
+    variable parse_level
+    # An array of default buttons and their names
+    variable default_button_labels
+    array set default_button_labels \
+	[list back [_ acs-templating.Previous_with_arrow] [_ acs-kernel.common_repeat] next [_ acs-templating.Next_with_arrow] finish [_ acs-kernel.common_finish]]
+  }
+
+  namespace eval paginator {
+    
+    # stack level at which paginator is created
+    variable parse_level
+
+    # Default values for paginator properties
+    variable defaults
+    set defaults [list pagesize 20 timeout 600 groupsize 10]
+  }
+
+  namespace eval data {
+    namespace eval validate {}
+    namespace eval transform {}
+  }
+
+  # keep track of the stack frame in which a template is rendered at run-time
+  variable parse_level
+
+  # used for compiling Tcl code from ADP template
+  variable parse_list
+
+  # used to keep track of nested tags
+  variable tag_stack
+
+  # used to keep a list of filter procedures to execute
+  variable filter_list
+  set filter_list [list]
+
+  # filters may set or modify the URL to replace ns_conn url
+  variable url
+
+  # specify what procs can be accessed directly
+  namespace export form element request
+}
+
Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	13 Sep 2002 11:24:19 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	15 Oct 2003 12:35:51 -0000	1.6
@@ -13,6 +13,14 @@
 # to tie this in with the acs-lang money database as this code's far too
 # simplistic.
 
+namespace eval template {}
+namespace eval template::util {}
+namespace eval template::util::currency {}
+namespace eval template::data::validate::currency {}
+namespace eval template::data::transform::currency {}
+namespace eval template::util::currency::set_property {}
+namespace eval template::widget::currency {}
+ 
 ad_proc -public template::util::currency { command args } {
     Dispatch procedure for the currency object
 } {
@@ -58,7 +66,7 @@
     }
 
     if { ! $whole_part_valid_p || ! $fractional_part_valid_p } {
-	set message "Invalid currency [join [lrange $value 0 4] ""]"
+	set message "[_ acs-templating.Invalid_currency] [join [lrange $value 0 4] ""]"
 	return 0
     } else {
 	return 1
Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	22 Sep 2003 19:55:30 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	15 Oct 2003 12:35:51 -0000	1.11
@@ -9,6 +9,11 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+namespace eval template::data {}
+namespace eval template::data::validate {}
+namespace eval template::data::transform {}
+
 ad_proc -public template::data::validate { type value_ref message_ref } {
     This proc invokes the validation code for a given type.
 
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	15 Oct 2003 10:27:58 -0000	1.22
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	15 Oct 2003 12:35:51 -0000	1.23
@@ -11,6 +11,13 @@
 
 # Prepare an array to map symbolic month names to their indices
 
+namespace eval template {}
+namespace eval template::data {}
+namespace eval template::util {}
+namespace eval template::util::date {}
+namespace eval template::widget {}
+namespace eval template::data::transform {}
+
 ad_proc -public template::util::date { command args } {
     Dispatch procedure for the date object
 } {
Index: openacs-4/packages/acs-templating/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/doc-procs.tcl	21 Aug 2002 18:15:37 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/doc-procs.tcl	15 Oct 2003 12:35:51 -0000	1.4
@@ -19,6 +19,8 @@
 # @param id 
 # The ID of the foo passed with the request.
 
+namespace eval template {}
+
 ad_proc -public template::parse_directives { code } {
 
   # remove carriage returns if present
Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	16 Sep 2002 10:56:13 -0000	1.7
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	15 Oct 2003 12:35:51 -0000	1.8
@@ -9,7 +9,10 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval doc {}
 namespace eval doc::util {}
+namespace eval template {}
+namespace eval template::util {}
 
 ad_proc -private doc::util::dbl_colon_fix { text } {
 
Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	15 Oct 2003 10:29:20 -0000	1.19
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	15 Oct 2003 12:35:51 -0000	1.20
@@ -10,6 +10,9 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+namespace eval template::element {}
+
 ad_proc -public element { command form_id element_id args } {
     element is really template::element although when in the
     "template" namespace you may omit the template:: qualifier.
Index: openacs-4/packages/acs-templating/tcl/file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/file-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/file-procs.tcl	31 Aug 2002 02:01:41 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/file-procs.tcl	15 Oct 2003 12:35:51 -0000	1.3
@@ -1,3 +1,10 @@
+namespace eval template {}
+namespace eval template::data {}
+namespace eval template::data::transform {}
+namespace eval template::data::validate {}
+namespace eval template {}
+namespace eval template::util {}
+namespace eval template::util::file {}
 
 
 ad_proc -public template::data::transform::file { element_ref } {
Index: openacs-4/packages/acs-templating/tcl/filter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/filter-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/filter-procs.tcl	5 Oct 2003 16:09:11 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/filter-procs.tcl	15 Oct 2003 12:35:51 -0000	1.11
@@ -9,6 +9,8 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+
 ad_proc -public template::forward { url args } {
     Redirect and abort processing
 
Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	10 Oct 2003 12:00:38 -0000	1.22
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	15 Oct 2003 12:35:51 -0000	1.23
@@ -11,6 +11,8 @@
 # http://www.fsf.org/copyleft/gpl.html
 
 # Commands for managing dynamic templated forms.
+namespace eval template {}
+namespace eval template::form {}
 
 ad_proc -public form {command args} { 
     form is really template::form although when in 
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	28 Sep 2003 01:18:16 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	15 Oct 2003 12:35:51 -0000	1.7
@@ -6,6 +6,7 @@
     @cvs-id $Id$
 }
 
+namespace eval template {}
 namespace eval template::list {}
 namespace eval template::list::element {}
 namespace eval template::list::filter {}
Index: openacs-4/packages/acs-templating/tcl/mime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/mime-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/mime-procs.tcl	10 Sep 2002 22:22:15 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/mime-procs.tcl	15 Oct 2003 12:35:51 -0000	1.5
@@ -1,3 +1,5 @@
+namespace eval template {}
+
 ad_library {
 
     Provides procedures needed to determine mime type required for the
Index: openacs-4/packages/acs-templating/tcl/paginator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/paginator-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	28 Aug 2003 09:41:45 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	15 Oct 2003 12:35:51 -0000	1.13
@@ -9,6 +9,9 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+namespace eval template::paginator {}
+
 ad_proc -public template::paginator { command args } {
     pagination object.  Please see the individual command for
     their arguments.
Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	10 Oct 2003 16:27:30 -0000	1.20
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	15 Oct 2003 12:35:51 -0000	1.21
@@ -11,6 +11,8 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+
 ad_proc -private template::adp_parse { __adp_stub __args } {
     Execute procedures to prepare data sources and then to output
     template.
Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	3 Oct 2003 11:26:33 -0000	1.15
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	15 Oct 2003 12:35:51 -0000	1.16
@@ -9,7 +9,10 @@
 
 }
 
+namespace eval template {}
+namespace eval template::query {}
 
+
 # Database Query API for the ArsDigita Templating System
 
 # Copyright (C) 1999-2000 ArsDigita Corporation
Index: openacs-4/packages/acs-templating/tcl/request-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/request-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/request-procs.tcl	16 Sep 2002 10:56:13 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/request-procs.tcl	15 Oct 2003 12:35:51 -0000	1.5
@@ -19,6 +19,9 @@
 
 # @see form element
 
+namespace eval template {}
+namespace eval template::request {}
+
 ad_proc -public template::request { command args } {
   eval request::$command $args
 }
Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	9 Oct 2003 11:07:40 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	15 Oct 2003 12:35:51 -0000	1.12
@@ -6,7 +6,13 @@
     @cvs-id $Id$
 }
 
+namespace eval template {}
+namespace eval template::data {}
+namespace eval template::data::transform {}
+namespace eval template::data::validate {}
+namespace eval template::util {}
 namespace eval template::util::richtext {}
+namespace eval template::widget {}
 
 ad_proc -public template::util::richtext { command args } {
     Dispatch procedure for the richtext object
Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	9 Oct 2003 11:07:40 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	15 Oct 2003 12:35:51 -0000	1.6
@@ -6,6 +6,10 @@
     @cvs-id $Id$
 }
 
+namespace eval template {}
+namespace eval template::data {}
+namespace eval template::data::transform {}
+namespace eval template::util {}
 namespace eval template::util::spellcheck {}
 
 ad_proc -public template::util::spellcheck { command args } {
Index: openacs-4/packages/acs-templating/tcl/tab-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tab-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/tab-procs.tcl	9 May 2001 05:15:58 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/tab-procs.tcl	15 Oct 2003 12:35:51 -0000	1.3
@@ -7,6 +7,10 @@
 
 # A tab is just a formwidget
 
+namespace eval template {}
+namespace eval template::widget {}
+namespace eval template::tabstrip {}
+
 ad_proc -public template::widget::tab { element_reference tag_attributes } {
 
   upvar $element_reference element
@@ -206,5 +210,43 @@
 
 }
 
+# The tabstrip tag
 
+template_tag tabstrip { chunk params } {
 
+  set level [template::adp_level]
+
+  set id [template::get_attribute formtemplate $params id]
+
+  upvar #$level $id:properties form_properties
+
+  # Create a variable called "plus" that holds the + sign
+  # Since the actual + character is regexped out... how lame
+  set tabstrip_plus "+"
+
+  template::adp_append_code "set form:id \"$id\""
+
+  # Set optional attributes for the style template
+  template::adp_append_code "
+    upvar 0 \"$id:properties\" form_properties"
+
+  # Change the default style if no style is specified
+  if { [string equal [ns_set iget $params style] ""] } {
+    ns_set update $params style tabbed-dialog
+  }
+
+  # Render the template
+  if { [string equal [string trim $chunk] {}] } {
+    # generate the form body dynamically if none specified.
+    set style [ns_set iget $params style]
+    if { [template::util::is_nil style] } {
+      set style "tabbed-dialog"
+    }
+    template::adp_append_string "\[template::form generate $id $style\]"
+  } else {
+    # compile the static form layout specified in the template
+    template::adp_compile_chunk $chunk
+  }
+
+}
+
Index: openacs-4/packages/acs-templating/tcl/table-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/table-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/table-procs.tcl	13 Aug 2002 16:45:49 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/table-procs.tcl	15 Oct 2003 12:35:51 -0000	1.5
@@ -45,6 +45,11 @@
 
 # Create the widget data structure
 
+namespace eval template {}
+namespace eval template::widget {}
+namespace eval template::widget::table {}
+
+
 ad_proc -public template::widget::table::create { statement_name name args } {
 
   upvar "tablewidget:${name}" widget
@@ -232,8 +237,3 @@
     template::adp_compile $chunk
   }
 }
- 
-
-
-
- 
Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	25 Sep 2003 00:54:28 -0000	1.15
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	15 Oct 2003 12:35:51 -0000	1.16
@@ -10,6 +10,7 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
 namespace eval template::util {}
 namespace eval template::query {}
 
Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Oct 2003 11:21:07 -0000	1.27
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	15 Oct 2003 12:35:51 -0000	1.28
@@ -9,6 +9,12 @@
 # This is free software distributed under the terms of the GNU Public
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
+
+namespace eval template {}
+namespace eval template::widget {}
+namespace eval template::data {}
+namespace eval template::data::transform {}
+
 ad_proc -public template::widget {} {
     The template::widget namespace contains the code 
     for the various input widgets.
Index: openacs-4/packages/acs-templating/tcl/wizard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/wizard-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/wizard-procs.tcl	7 Oct 2003 10:53:58 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/wizard-procs.tcl	15 Oct 2003 12:35:51 -0000	1.6
@@ -10,6 +10,9 @@
 # License.  Full text of the license is available from the GNU Project:
 # http://www.fsf.org/copyleft/gpl.html
 
+namespace eval template {}
+namespace eval template::wizard {}
+
 ad_proc -public template::wizard { command args } {
     alias proc to call the real template::wizard::proc
 } {