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.9 -r1.10
--- openacs-4/packages/acs-templating/tcl/0-procs.tcl	13 Jan 2003 15:23:50 -0000	1.9
+++ openacs-4/packages/acs-templating/tcl/0-procs.tcl	28 Feb 2003 13:18:15 -0000	1.10
@@ -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." }