Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl,v diff -u -N -r1.5 -r1.5.4.1 --- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl 28 Oct 2003 22:30:23 -0000 1.5 +++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl 29 Mar 2005 13:50:33 -0000 1.5.4.1 @@ -67,3 +67,35 @@ } } } + +ad_proc -private cr_after_install {} { + if {[db_type] == "oracle"} { + set default_template "" + + db_transaction { + db_1row get_template_id {} + db_dml update_default_template {} -blobs [list $default_template] + } + } +} + +ad_proc -public cr_after_upgrade { + {-from_version_name:required} + {-to_version_name:required} +} { + apm_upgrade_logic \ + -from_version_name $from_version_name \ + -to_version_name $to_version_name \ + -spec { + 5.1.5 5.1.6d1 { + if {[db_type] == "oracle"} { + set default_template "" + + db_transaction { + db_1row get_template_id {} + db_dml update_default_template {} -blobs [list $default_template] + } + } + } + } +}