Index: openacs-4/contrib/packages/portal/tcl/datasource-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/datasource-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/portal/tcl/datasource-procs.tcl	21 Mar 2004 02:39:57 -0000	1.7
+++ openacs-4/contrib/packages/portal/tcl/datasource-procs.tcl	6 Jun 2004 02:29:10 -0000	1.8
@@ -81,15 +81,15 @@
         db_transaction {
 
         set var_list [list \
-            [list name $datasource(name)] \
-            [list pretty_name $datasource(pretty_name)] \
-            [list owner $datasource(owner)] \
-            [list application $datasource(application)] \
-            [list template $datasource(template)] \
-            [list admin_p $datasource(admin_p)] \
-            [list shadeable_p $datasource(shadeable_p)] \
-            [list hideable_p $datasource(hideable_p)] \
-            [list description $datasource(description)]]
+            [list p_name $datasource(name)] \
+            [list p_pretty_name $datasource(pretty_name)] \
+            [list p_owner $datasource(owner)] \
+            [list p_application $datasource(application)] \
+            [list p_template $datasource(template)] \
+            [list p_admin_p $datasource(admin_p)] \
+            [list p_shadeable_p $datasource(shadeable_p)] \
+            [list p_hideable_p $datasource(hideable_p)] \
+            [list p_description $datasource(description)]]
 
             set datasource_id [package_exec_plsql -var_list $var_list portal_datasource new]
 
@@ -131,11 +131,11 @@
 
     } {
         set var_list [list \
-            [list datasource_id $datasource_id] \
-            [list config_required_p $config_required_p] \
-            [list configured_p $configured_p] \
-            [list key $key] \
-            [list value $value]]
+            [list p_datasource_id $datasource_id] \
+            [list p_config_required_p $config_required_p] \
+            [list p_configured_p $configured_p] \
+            [list p_key $key] \
+            [list p_value $value]]
 
         package_exec_plsql -var_list $var_list portal_datasource set_def_param
     }
@@ -155,7 +155,7 @@
         }
 
         acs_sc::impl::delete -contract_name portal_datasource -impl_name $name
-        set var_list [list [list datasource_id $datasource_id]]
+        set var_list [list [list p_datasource_id $datasource_id]]
         return [package_exec_plsql -var_list $var_list portal_datasource del]
     }