Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl	19 Mar 2002 06:49:29 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl	12 Sep 2002 22:44:32 -0000	1.4
@@ -1,3 +1,12 @@
+ad_library { 
+    Ticket tracker lite support procs.
+
+    @author dvr@arsdigita.com
+    @author Vinod Kurup (vinod@kurup.com)
+    @creation-date 2001-02-18
+    @cvs-id $Id$
+}
+
 ad_proc ttl_master_template {} {
     return /packages/ticket-tracker-lite/www/master
 }
Index: openacs-4/packages/cronjob/tcl/cronjob-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/tcl/cronjob-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cronjob/tcl/cronjob-procs.tcl	4 Sep 2002 09:15:42 -0000	1.3
+++ openacs-4/packages/cronjob/tcl/cronjob-procs.tcl	12 Sep 2002 22:44:25 -0000	1.4
@@ -1,8 +1,16 @@
-# Procs for cronjog package
+ad_library { 
+    Cronjog support procs
 
+    @author Tom Jackson <tom@zmbh.com>
+    @creation-date 22 Sept 2001
+
+    @cvs-id $Id$
+}
+
 ad_proc cronjob_check { } {
 
-		Checks the database for cronjobs that need to run
+    Checks the database for cronjobs that need to run
+
 } {
 
 		# setup the vars
@@ -37,7 +45,7 @@
 
 ad_proc cronjob_run { cronjob_id } { 
 
-		Proc to run cronjobs 
+    Proc to run cronjobs 
 
 } {
 		set table "No SQL"
Index: openacs-4/packages/ecommerce/tcl/qmail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/qmail-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/ecommerce/tcl/qmail-procs.tcl	18 Jul 2001 18:19:01 -0000	1.2
+++ openacs-4/packages/ecommerce/tcl/qmail-procs.tcl	12 Sep 2002 22:44:26 -0000	1.3
@@ -1,8 +1,17 @@
-# qmail.tcl,v 3.2 2000/07/07 23:31:29 ron Exp
-# procedure for sending mail by directly injecting it into the qmail system.
-# -jsc 1999-01-15
+ad_library {
+    qmail support procs.
 
-ad_proc qmail {to from subject body {extraheaders {}}} { sends message using qmail by direct injection } {
+    @author Jin Choi
+    @creation-date 1999-01-15
+    @cvs-id $Id$
+}
+
+ad_proc qmail {to from subject body {extraheaders {}}} {
+    procedure for sending mail by directly injecting it into the qmail system.
+
+    @author jsc 
+    @creation-date 1999-01-15
+} {
     set msg "To: $to\nFrom: $from\nSubject: $subject\nDate: [ns_httptime [ns_time]]"
     ## Insert extra headers, if any
     if ![string match "" $extraheaders] {
@@ -27,7 +36,9 @@
 }
 
 # Inject a fully formed message into qmail.
-ad_proc qmail_send_complete_message {from msg} { sends message using qmail } {
+ad_proc qmail_send_complete_message {from msg} {
+    sends message using qmail
+ } {
     set qmail_pipe [open "| /var/qmail/bin/qmail-inject -h -f$from" "w"]
     puts -nonewline $qmail_pipe $msg
     close $qmail_pipe
Index: openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl	4 Mar 2002 18:26:03 -0000	1.2
+++ openacs-4/packages/file-storage/tcl/file-storage-search-procs.tcl	12 Sep 2002 22:44:27 -0000	1.3
@@ -1,4 +1,12 @@
-# Site-wide search procs
+ad_library { 
+    Site-wide search procs for file storage
+    Implements OpenFTS Search service contracts
+
+    @author Jowell S. Sabino (jowellsabino@netscape.net)
+    @creation-date 2001-12-18
+    @cvs-id $Id$
+}
+
 ad_proc fs__datasource {
     revision_id
 } {
Index: openacs-4/packages/glossary/tcl/glossary-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossary/tcl/glossary-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/glossary/tcl/glossary-procs.tcl	20 Apr 2001 20:51:12 -0000	1.1
+++ openacs-4/packages/glossary/tcl/glossary-procs.tcl	12 Sep 2002 22:44:28 -0000	1.2
@@ -1,5 +1,14 @@
+ad_library {
+    Glossary support routines. 
 
-ad_proc glossary_publish_states {} {returns a list of the possible publishing states of a content item in the content repository} {
+    @author Don Baccus (dhoghaza@pacifier.com)
+    @cvs-id $Id$
+}
+
+ad_proc glossary_publish_states {} {
+    returns a list of the possible publishing states of a content item in 
+    the content repository
+} {
     # hate to hardcode... but
     set publish_states [list [list "production" "production"] [list "ready" "ready"] [list "live" "live"] [list "expired" "expired"]]
     return $publish_states
Index: openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl	10 Sep 2002 22:23:00 -0000	1.2
+++ openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl	12 Sep 2002 22:44:28 -0000	1.3
@@ -1,18 +1,20 @@
-# static-pages/tcl/glossary-sc-procs.tcl
-# implements OpenFTS Search service contracts
-# Don Baccus (dhoghaza@pacifier.com)
-# poached from static-pages and notes
+ad_library { 
+    Implements OpenFTS Search service contracts
+    poached from static-pages and notes.
 
+    @author Don Baccus (dhoghaza@pacifier.com)
+    @cvs-id $Id$
+}
+
 ad_proc glossary__datasource {
     object_id
 } {
     @author Don Baccus (dhogaza@pacifier.com)
-
 } {
 
     set path_stub [cr_fs_path STATIC_PAGES]
     
-    db_0or1row datasource ""     -column_array datasource
+    db_0or1row datasource "" -column_array datasource
 
     return [array get datasource]
 }
@@ -22,7 +24,6 @@
     object_id
 } {
     @author Don Baccus (dhogaza@pacifier.com)
-
 } {
 
     set package_id [apm_package_id_from_key glossary]
Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	2 Sep 2002 17:01:13 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	12 Sep 2002 22:44:28 -0000	1.3
@@ -1,7 +1,7 @@
 ad_library {
      Procs used by the blogger module.
-     @author Lars Pind
-     @creation-date 
+     @author Lars Pind (lars@pinds.com)
+     @creation-date 2002
      @cvs-id $Id$
 }
 
Index: openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	19 Aug 2002 21:52:59 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/weblogs-procs.tcl	12 Sep 2002 22:44:28 -0000	1.2
@@ -1,3 +1,11 @@
+ad_library {
+    Weblog support routines
+
+    @author Lars Pind (lars@pinds.com)
+    @creation-date 2002
+    @cvs-id $Id$
+}
+
 ad_proc -private lars_blog_weblogs_com_update_ping {
     {-package_id}
     {-location}
Index: openacs-4/packages/notes/tcl/notes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notes/tcl/notes-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/notes/tcl/notes-procs.tcl	15 Sep 2001 21:31:50 -0000	1.2
+++ openacs-4/packages/notes/tcl/notes-procs.tcl	12 Sep 2002 22:44:29 -0000	1.3
@@ -1,3 +1,11 @@
+ad_library { 
+    Notes -- an implementation of  FtsContentProvider
+    
+    @author Neophytos Demetriou
+    @creation-date 2001-09-03
+    @cvs-id $Id$
+}
+
 ad_proc notes__datasource {
     object_id
 } {
Index: openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	15 Sep 2001 21:31:50 -0000	1.2
+++ openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	12 Sep 2002 22:44:30 -0000	1.3
@@ -1,3 +1,11 @@
+ad_library { 
+    OpenFTS driver procs 
+
+    @author Neophytos Demetriou
+    @creation-date 2001-09-01
+    @cvs-id $Id$
+}
+
 ad_proc openfts_driver__search {
     query
     offset
Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	10 Sep 2002 22:23:19 -0000	1.5
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	12 Sep 2002 22:44:31 -0000	1.6
@@ -1,19 +1,16 @@
-# /tcl/rss-defs.tcl
 ad_library {
-     procs to generate rss feeds
-     @author jerry@theashergroup.com [jerry@theashergroup.com]
-     @author aegrumet@alum.mit.edu
-     @creation-date Fri Oct 26 11:43:26 2001
-     @cvs-id $Id$
+    RSS feed generation procs
+    
+    generates an rss feed given channel information
+    and item information
+
+    @author jerry@theashergroup.com (jerry@theashergroup.com)
+    @author aegrumet@alum.mit.edu
+    @creation-date Fri Oct 26 11:43:26 2001
+    @cvs-id $Id$
 }
 
 
-###
-# rss
-# generates an rss feed given channel information
-# and item information
-###
-
 ad_proc rss_gen_100 {
     {
         -channel_title                  ""
Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl	12 Dec 2001 02:58:23 -0000	1.8
+++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl	12 Sep 2002 22:44:31 -0000	1.9
@@ -1,3 +1,13 @@
+ad_library {
+    RSS feed service procs
+
+    @author jerry@theashergroup.com (jerry@theashergroup.com)
+    @author aegrumet@alum.mit.edu
+
+    @creation-date Fri Oct 26 11:43:26 2001
+    @cvs-id $Id$
+}
+
 ad_proc -private rss_gen_service {} {
 
     ns_log Debug "rss_gen_service: starting"
@@ -36,9 +46,7 @@
 }
 
 ad_proc -private rss_gen_report subscr_id {
-    <pre>
-    # Build a report, write it out, log it.
-    </pre>
+    Build a report, write it out, log it.
 } {
     set start [clock seconds]
 
@@ -88,12 +96,11 @@
 }
 
 ad_proc -private rss_assert_dir path {
-    <pre>
-    # Steps through path creating each new directory as needed.
-    # Accepts full path or relative path, but you probably want
-    # to specify the full path.
-    # Makes no attempt to catch errors.
-    </pre>
+    Steps through path creating each new directory as needed.
+    Accepts full path or relative path, but you probably want
+    to specify the full path.
+    <p>
+    Makes no attempt to catch errors.
 } {
     set running_path ""
     foreach dir [split $path /] {
@@ -105,9 +112,7 @@
 }
 
 ad_proc -private rss_gen_bind {} {
-    <pre>
-    # Creates bindings for unbound implementations for RssGenerationSubscriber.
-    </pre>
+    Creates bindings for unbound implementations for RssGenerationSubscriber.
 } {
     set contract_id [db_string get_contract_id {
 	select acs_sc_contract__get_id('RssGenerationSubscriber')
@@ -219,4 +224,4 @@
     } else {
 	return [ns_url2file $report_url]
     }
-}
\ No newline at end of file
+}
Index: openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	8 Dec 2001 01:18:00 -0000	1.2
+++ openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	12 Sep 2002 22:44:31 -0000	1.3
@@ -1,3 +1,15 @@
+ad_library { 
+    RSS support procs 
+    
+    @author Andrew Grumet (aegrumet@alum.mit.edu)
+    @author Jerry Asher (jerry@theashergroup.com)
+    @author Dave Bauer (dave@thedesignexperience.org)
+
+    @creation-date Fri Oct 26 11:43:26 2001
+    @cvs-id $Id$
+}
+
+
 ad_proc -public rss_package_id {} {
     <pre>
     # Returns the package_id for rss if it is rss is mounted.
Index: openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl	10 Sep 2002 22:23:25 -0000	1.2
+++ openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl	12 Sep 2002 22:44:31 -0000	1.3
@@ -1,21 +1,27 @@
-# static-pages/tcl/static-pages-sc-procs.tcl
-# implements OpenFTS Search service contracts
-# Dave Bauer dave@thedesignexperience.org
-# 2001-10-27
+ad_library { 
+    static-pages/tcl/static-pages-sc-procs.tcl
+    implements OpenFTS Search service contracts
 
-# Right now I am leaving the keywords blank
-# in the future we should either extract them from the META keyword tag
-# or allow assignment of cr_keywords to static_pages
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2001-10-27
+    @cvs-id $Id$
+}
 
 ad_proc static_page__datasource {
     object_id
 } {
+    Right now I am leaving the keywords blank
+    in the future we should either extract them from the META keyword tag
+    or allow assignment of cr_keywords to static_pages
+    
     @author Dave Bauer (dave@thedesignexperience.org)
-} {
 
+    @param object_id the object_id for which to generate the data
+
+} {
     set path_stub [cr_fs_path STATIC_PAGES]
     
-    db_0or1row sp_datasource ""     -column_array datasource
+    db_0or1row sp_datasource "" -column_array datasource
 
     return [array get datasource]
 }
Index: openacs-4/packages/value-based-shipping/tcl/value-based-shipping-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/tcl/value-based-shipping-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/value-based-shipping/tcl/value-based-shipping-procs.tcl	21 May 2002 18:35:37 -0000	1.1
+++ openacs-4/packages/value-based-shipping/tcl/value-based-shipping-procs.tcl	12 Sep 2002 22:44:33 -0000	1.2
@@ -1,3 +1,12 @@
+ad_library { 
+
+    Value based shipping service contract routines
+
+    @author Bart Teeuwisse <bart.teeuwisse@7-sisters.com>
+    @creation-date May 2002
+    @cvs-id $Id$
+}
+
 ad_proc -public value_based_shipping.rates_and_services_selection {
     orig_country_iso
     orig_zip_code