Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/tcl/portal-procs.xql 10 Dec 2001 20:26:08 -0000 1.1
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql 12 Dec 2001 19:25:52 -0000 1.2
@@ -299,16 +299,140 @@
+
+
+ insert into portal_element_parameters
+ (parameter_id, element_id, configured_p, key, value) values
+ (acs_object_id_seq.nextval, :element_id, 't', :key, :value)
+
+
+
+
+
+
+
+
+
+ delete from portal_element_parameters where
+ element_id= :element_id and
+ key= :key and
+ value= :value
+
+
+
+
+ delete from portal_element_parameters where
+ element_id= :element_id and
+ key= :key
+
+
+
+
+ select value
+ from portal_element_parameters
+ where element_id = :element_id and
+ key = :key
+
+
+
+
+ select pem.element_id,
+ pem.datasource_id,
+ pem.state,
+ pet.filename as filename,
+ pet.resource_dir as resource_dir
+ from portal_element_map pem, portal_element_themes pet
+ where pet.theme_id = :theme_id
+ and pem.element_id = :element_id
+
+
+
+
+ select key, value
+ from portal_element_parameters
+ where element_id = :element_id
+
+
+
+
+ select portal_id, datasource_id
+ from portal_element_map
+ where element_id = :element_id
+
+
+
+
+ update portal_element_map
+ set state = 'hidden'
+ where element_id = :element_id
+
+
+
+
+ select name from portal_datasources where datasource_id = :ds_id
+
+
+
+
+ select datasource_id from portal_datasources where name = :ds_name
+
+
+
+
+ insert into portal_datasource_avail_map
+ (portal_datasource_id, portal_id, datasource_id)
+ values
+ (:new_p_ds_id, :portal_id, :ds_id)
+
+
+
+
+ delete from portal_datasource_avail_map
+ where portal_id = :portal_id
+ and datasource_id = :ds_id
+
+
+
+
+
+ select 1
+ from portal_datasource_avail_map
+ where portal_id = :portal_id and
+ datasource_id = :ds_id
+
+
+
+
+
+ select element_id from portal_element_map
+ where portal_id= :portal_id
+ and datasource_id= :ds_id
+
+
+
+
+
+ select layout_id from portals where portal_id = :portal_id
+
+
+
+
+
+ select 1 from portals where portal_id = :portal_id
+
+
+
+