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 -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-templating/tcl/0-procs.tcl	14 Sep 2002 18:13:47 -0000	1.7
+++ openacs-4/packages/acs-templating/tcl/0-procs.tcl	5 Mar 2003 14:57:37 -0000	1.7.2.1
@@ -53,7 +53,7 @@
     
     # default settings
     variable defaults
-    set defaults [list method post section {}]
+    set defaults [list method post section {} mode edit edit_buttons { { "OK" ok } } display_buttons { { "Edit" edit } }]
   }
 
   namespace eval wizard {
@@ -105,6 +105,13 @@
     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 { 
@@ -119,7 +126,9 @@
         return \"\"
       }"
 
-      ns_register_adptag $name template_tag_$name 
+      if { !$exists_p } {
+        ns_register_adptag $name template_tag_$name 
+      }
     }
 
     2 { 
@@ -139,7 +148,9 @@
         return \"\"
       }"
 
-      ns_register_adptag $name /$name template_tag_$name 
+      if { !$exists_p } {
+        ns_register_adptag $name /$name template_tag_$name 
+      }
     }
 
     default { error "Invalid number of arguments to tag handler." }