Index: openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	13 Jan 2005 13:54:42 -0000	1.14
+++ openacs-4/packages/acs-authentication/tcl/apm-callback-procs.tcl	27 Feb 2005 22:45:39 -0000	1.15
@@ -66,17 +66,19 @@
     }
 }
 
-ad_proc -public auth::after_upgrade {
+ad_proc -private auth::after_upgrade {
     {-from_version_name:required}
     {-to_version_name:required}
 } {
+    After upgrade callback.
+} {
     apm_upgrade_logic \
         -from_version_name $from_version_name \
         -to_version_name $to_version_name \
         -spec {
             5.0a1 5.0a2 {
                 db_transaction {
-                    
+
                     # Delete and recreate contract
                     auth::process_doc::delete_contract
                     auth::process_doc::create_contract