Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.44.2.12 -r1.44.2.13
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	23 Jan 2017 13:16:26 -0000	1.44.2.12
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	11 Feb 2017 21:54:38 -0000	1.44.2.13
@@ -846,6 +846,7 @@
 ad_proc -public subsite::save_theme_parameters {
     -subsite_id
     -theme
+    -local_p 
 } {
     Save the actual theming parameter set of the given/current subsite
     as default for the given/current theme. These default values are
@@ -881,7 +882,8 @@
         -list_filter_template [parameter::get -parameter DefaultListFilterStyle  -package_id $subsite_id] \
         -dimensional_template [parameter::get -parameter DefaultDimensionalStyle -package_id $subsite_id] \
         -resource_dir         [parameter::get -parameter ResourceDir             -package_id $subsite_id] \
-        -streaming_head       [parameter::get -parameter StreamingHead           -package_id $subsite_id] 
+        -streaming_head       [parameter::get -parameter StreamingHead           -package_id $subsite_id] \
+        -local_p              $local_p
         
 }
 
@@ -920,7 +922,8 @@
         -list_filter_template [parameter::get -parameter DefaultListFilterStyle  -package_id $subsite_id] \
         -dimensional_template [parameter::get -parameter DefaultDimensionalStyle -package_id $subsite_id] \
         -resource_dir         [parameter::get -parameter ResourceDir             -package_id $subsite_id] \
-        -streaming_head       [parameter::get -parameter StreamingHead           -package_id $subsite_id] 
+        -streaming_head       [parameter::get -parameter StreamingHead           -package_id $subsite_id] \
+        -local_p              true
         
 }
 
@@ -952,9 +955,13 @@
     {-dimensional_template ""}
     {-resource_dir ""}
     {-streaming_head ""}
+    {-local_p true}
 } {
     Add a new subsite theme, making it available to the theme configuration code.
 } {
+    # the following line is for Oracle compatibility
+    set local_p [expr {$local_p ? "t" : "f"}]
+    
     db_dml insert_subsite_theme {}
 }
 
@@ -970,11 +977,15 @@
     {-dimensional_template ""}
     {-resource_dir ""}
     {-streaming_head ""}
+    {-local_p false}
 } {
     Update the default theming parameters in the database
 
     @author Gustaf Neumann
 } {
+    # the following line is for Oracle compatibility
+    set local_p [expr {$local_p ? "t" : "f"}]
+    
     db_dml update {
       update subsite_themes
         set name = :name,
@@ -986,7 +997,8 @@
             list_filter_template = :list_filter_template,
             dimensional_template = :dimensional_template,
             resource_dir = :resource_dir,
-            streaming_head = :streaming_head
+            streaming_head = :streaming_head,
+            local_p = :local_p
      where
         key = :key
     }