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 -r1.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	27 Oct 2014 16:40:11 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	7 Aug 2017 23:48:01 -0000	1.12
@@ -1,14 +1,18 @@
-# Documentation procedures for the ArsDigita Templating System
+ad_library {
+    Documentation procedures for the ArsDigita Templating System
 
-# Copyright (C) 1999-2000 ArsDigita Corporation
-# Authors: Simon Huynh (shuynh@arsdigita.com)
+    @author Simon Huynh (shuynh@arsdigita.com)
 
-# $Id$
+    @cvs-id $Id$
+}
 
+# Copyright (C) 1999-2000 ArsDigita Corporation
+
 # 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 doc {}
 namespace eval doc::util {}
 namespace eval template {}
@@ -138,7 +142,7 @@
 
 ad_proc -private -deprecated template::util::server_root {} {
     uses ns_library to find the server root, may not always be accurate
-    because it essentially asks for the tcl library path and
+    because it essentially asks for the Tcl library path and
     strips off the last /tcl directory.
 
     @see use $::acs::rootdir instead
@@ -175,8 +179,7 @@
     @see use simple "ns_log ...." instead
 } {
     upvar $ref value
-    ns_log notice "$ref: $value
-"
+    ns_log notice "$ref: $value"
 }
 
 
@@ -390,7 +393,7 @@
 }
 
 ad_proc -private doc::parse_namespace { text_lines }  {
-    text between two namespace markers in a tcl library file and 
+    text between two namespace markers in a Tcl library file and 
     parses out procedure source and comments
 
     @author simon
@@ -457,7 +460,7 @@
     # as would be expected if the namespace were being described 
     # for the first time; otherwise
     # it is set to 0;  the problem i'm trying to resolve here is multiple uses 
-    # of the @namespace directive and determining which occurance of the 
+    # of the @namespace directive and determining which occurrence of the 
     # directive is followed by comments
     # by comments we want to parse into our static files
 
@@ -486,7 +489,7 @@
     if { $has_comments } {
 	
 	# this check determines whether or not we want the comments
-	# following this occurrance of the @namespace directive for 
+	# following this occurrence of the @namespace directive for 
 	# this namespace to be included in our static files
 
         set namespace_info [list name "$namespace_name" overview "$namespace_description" author "$namespace_author" see "$namespace_see"]
@@ -584,7 +587,7 @@
 }
 
 ad_proc -private doc::parse_tcl_library { dir_list } {
-    takes the absolute path of the tcl library directory and parses through it
+    takes the absolute path of the Tcl library directory and parses through it
 
     @see doc::parse_file 
     @see template::util::comment_text_normalize
@@ -606,13 +609,13 @@
 
   foreach dir $dir_list {
 
-  #debug
-  #template::util::display_value dir
+      #debug
+      #template::util::display_value dir
 
-  # using this lame hack since most aD servers are running an earlier version of Tcl than 8.3,
-  # which supports the -directory switch that this hack emulates
-  append file_list [glob -nocomplain $dir/*.tcl $dir/*/*.tcl $dir/*/*/*.tcl $dir/*/*/*/*.tcl ]
-  append file_list " "
+      # using this lame hack since most aD servers are running an earlier version of Tcl than 8.3,
+      # which supports the -directory switch that this hack emulates
+      append file_list [glob -nocomplain $dir/*.tcl $dir/*/*.tcl $dir/*/*/*.tcl $dir/*/*/*/*.tcl ]
+      append file_list " "
   }
 
   #debugging
@@ -634,3 +637,9 @@
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: