Index: openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl	22 Sep 2003 18:03:48 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/apm-callback-procs.tcl	27 Feb 2005 22:45:40 -0000	1.2
@@ -9,17 +9,19 @@
 namespace eval template {}
 namespace eval template::apm {}
 
-ad_proc -public template::apm::before_upgrade {
+ad_proc -private template::apm::before_upgrade {
     {-from_version_name:required}
     {-to_version_name:required}
 } {
+    before upgrade apm callback for acs-templating.
+} {
     apm_upgrade_logic \
         -from_version_name $from_version_name \
         -to_version_name $to_version_name \
         -spec {
             4.6.4 5.0d1 {
                 db_transaction {
-                 
+
                     # Change 'standard-lars' to 'standard'
 
                     set package_id [apm_package_id_from_key "acs-templating"]
@@ -42,15 +44,14 @@
                         set DefaultFormStyle [parameter::get \
                                                   -package_id $package_id \
                                                   -parameter DefaultFormStyle]
-                        
+
                         if { [string equal $DefaultFormStyle "standard-lars"] } {
                             parameter::set_value \
                                 -package_id $package_id \
                                 -parameter DefaultFormStyle \
                                 -value "standard"
                         }
                     }
-                    
                 }
             }
         }