Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	10 Jan 2007 21:22:06 -0000	1.10
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	9 May 2009 22:27:53 -0000	1.11
@@ -90,5 +90,27 @@
 		    }
 		}
 	    }
+	    5.5.0d7 5.5.0d8 {
+                db_transaction {
+                    set package_keys ([join '[subsite::package_keys]' ,])
+                    foreach subsite_id [db_list get_subsite_ids {}] {
+                        set new_css [list]
+                        set css [parameter::get \
+                                    -package_id $subsite_id \
+                                    -parameter ThemeCSS \
+                                    -default ""]
+                        if { $css ne "" } {
+                            foreach css $css {
+                                lappend new_css [list [list href [lindex $css 0]] \
+                                                      [list media [lindex $css 1]]]
+                            }
+                            parameter::set_value \
+                                -package_id $subsite_id \
+                                -parameter ThemeCSS \
+                                -value $new_css
+                        }
+                    }
+                }
+            }
 	}
 }