PACKAGE BODY: MDSYS.SDO_RELATE_MASK

Source

1 package body sdo_relate_mask as
2 procedure insert_mask(mask      in varchar2,
3                       relation  in varchar2) is
4 begin
5   insert into md$relate values(mask,nls_upper(relation),user);
6   commit;
7 end insert_mask;
8 
9 procedure update_mask(mask      in varchar2,
10                  relation  in varchar2) is
11 owner varchar2(30);
12 begin
13   select definer into owner from md$relate where sdo_mask=mask;
14   if (owner <> user) then
15     mderr.raise_md_error('MD','SDO',-13108,'Not definer');
16          return;
17   end if;
18   update md$relate set sdo_relation=nls_upper(relation) where sdo_mask=mask;
19   commit;
20 end update_mask;
21 
22 procedure delete_mask(mask      in varchar2) is
23 owner varchar2(30);
24 begin
25   select definer into owner from md$relate where sdo_mask=mask;
26   if (owner <> user) then
27     mderr.raise_md_error('MD','SDO',-13108,'Not definer');
28          return;
29   end if;
30   delete from md$relate where sdo_mask=mask;
31   commit;
32 end delete_mask;
33 end sdo_relate_mask;