group-type-procs-oracle.xql
DB Query file
Related Files
- packages/acs-subsite/tcl/group-type-procs.xql
- packages/acs-subsite/tcl/group-type-procs.tcl
- packages/acs-subsite/tcl/group-type-procs-postgresql.xql
- packages/acs-subsite/tcl/group-type-procs-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
<?xml version="1.0"?>
<queryset>
<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
<partialquery name="group_type::new.drop_type">
<querytext>
begin acs_object_type.drop_type('$group_type'); end;
</querytext>
</partialquery>
<partialquery name="group_type::new.create_type">
<querytext>
BEGIN
acs_object_type.create_type (
supertype => :supertype,
object_type => :group_type,
pretty_name => :pretty_name,
pretty_plural => :pretty_plural,
table_name => upper(:table_name),
id_column => :id_column,
package_name => :package_name
);
END;
</querytext>
</partialquery>
<partialquery name="group_type::new.update_type">
<querytext>
update acs_object_types set dynamic_p='t' where object_type = :group_type
</querytext>
</partialquery>
<partialquery name="group_type::new.copy_rel_types">
<querytext>
insert into group_type_rels
(group_rel_type_id, rel_type, group_type)
select acs_object_id_seq.nextval, r.rel_type, :group_type
from group_type_rels r
where r.group_type = :supertype
</querytext>
</partialquery>
<partialquery name="group_type::delete.package_exists">
<querytext>
select case when exists (select 1
from user_objects o
where o.object_type='PACKAGE'
and o.object_name = upper(:package_name))
then 1 else 0 end
from dual
</querytext>
</partialquery>
<partialquery name="group_type::delete.package_drop">
<querytext>
drop package [DoubleApos $group_type]
</querytext>
</partialquery>
<partialquery name="group_type::delete.drop_type">
<querytext>
begin acs_object_type.drop_type(:group_type); end;
</querytext>
</partialquery>
</queryset>