[Home] [Help]
309: if typeid <> 100 then
310:
311: -- NOTE : we need to delete the relationships between this object and its
312: -- first level named objects
313: delete from bism_aggregates where container_id = oid;
314:
315: -- delete if it is an object and return the top level object_id
316: --delete from bism_objects where folder_id = fid and user_visible= 'Y' and object_name = oname;
317: --leave the top level object alone but delete every anonymous object underneath it
399: if typeid <> 100 then
400:
401: -- NOTE : we need to delete the relationships between this object and its
402: -- first level named objects
403: delete from bism_aggregates where container_id = oid;
404:
405: -- delete if it is an object and return the top level object_id
406: --delete from bism_objects where folder_id = fid and user_visible= 'Y' and object_name = oname;
407: --leave the top level object alone but delete every anonymous object underneath it
517: if typeid <> 100 then
518:
519: -- NOTE : we need to delete the relationships between this object and its
520: -- first level named objects
521: delete from bism_aggregates where container_id = oid;
522:
523: -- delete if it is an object and return the top level object_id
524: --delete from bism_objects where folder_id = fid and user_visible= 'Y' and object_name = oname;
525: --leave the top level object alone but delete every anonymous object underneath it
594: if typeid <> 100 then
595:
596: -- NOTE : we need to delete the relationships between this object and its
597: -- first level named objects
598: delete from bism_aggregates where container_id = oid;
599:
600: -- delete if it is an object and return the top level object_id
601: --delete from bism_objects where folder_id = fid and user_visible= 'Y' and object_name = oname;
602: --leave the top level object alone but delete every anonymous object underneath it
1254: end;
1255:
1256: procedure copy_folder(srcfid raw,tgtfid raw,destobjname varchar2,myid raw,copytype integer,first_level boolean)
1257: is
1258: agginfo bism_aggregates.aggregate_info%type;
1259: new_target_folder bism_objects.object_id%type;
1260: newguid bism_objects.object_id%type:= null;
1261: dummycounter integer := 0;
1262: begin
1361: priv bism_permissions.privilege%type;
1362: foldername bism_objects.object_name%type;
1363: newguid bism_objects.object_id%type;
1364: toplevelobjid bism_objects.object_id%type;
1365: agginfo bism_aggregates.aggregate_info%type;
1366: uv bism_objects.USER_VISIBLE%type;
1367: oti bism_objects.object_type_id%type;
1368: ver bism_objects.VERSION%type;
1369: ttl bism_objects.TITLE%type;
1466: -- if user wants a shallow copy, copy the top level object
1467: -- and all its anonymous objects to the target folder. dont copy
1468: -- named objects. leave them where they are and set up relationships
1469: -- between cloned anonymous and existing named objects by
1470: -- updating bism_aggregates accordingly
1471: -- copy_next_level will copy the rest of the hierarchy down
1472:
1473: -- DEEP COPY
1474: -- if user wants a deep copy, copy all objects in the hierarchy including
1499: pass_copytype := 0;
1500: else
1501: pass_copytype := copytype;
1502: end if;
1503: select aggregate_info into agginfo from bism_aggregates where container_id = utl_raw.cast_to_raw('0') and containee_id = toplevelobjid;
1504: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (utl_raw.cast_to_raw('0'),newguid,agginfo);
1505: -- if we want to return the object id of the top level objec
1506: -- add select object_type_id to above select statement then concat
1507: -- rettypeid with retguid
1500: else
1501: pass_copytype := copytype;
1502: end if;
1503: select aggregate_info into agginfo from bism_aggregates where container_id = utl_raw.cast_to_raw('0') and containee_id = toplevelobjid;
1504: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (utl_raw.cast_to_raw('0'),newguid,agginfo);
1505: -- if we want to return the object id of the top level objec
1506: -- add select object_type_id to above select statement then concat
1507: -- rettypeid with retguid
1508: -- retguid := newguid;
1524: -- NOTE : oldparentid is the object_id of the original object hierarchy.
1525: -- walk the old hierarchy using oldparentid and its children
1526: -- newparentid is the new instance object_id. use this to set up the graph
1527: -- between newly created objects
1528: for i in (select containee_id,aggregate_info from bism_aggregates where container_id = oldparentid) loop
1529: select user_visible into user_visible_var from bism_objects where object_id = i.containee_id;
1530: if user_visible_var = 'Y' then
1531: if copytype = 0 then
1532: -- this is a named object and if performing shallow copy, don't copy it,
1531: if copytype = 0 then
1532: -- this is a named object and if performing shallow copy, don't copy it,
1533: -- just set up relationshin between this and its parent
1534: -- and dont traverse its hierarchy
1535: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (newparentid,i.containee_id,i.aggregate_info);
1536: elsif copytype = 1 then
1537: -- user wants deep copy, so clone the named object as well and make it
1538: -- anonymous, give it a system generated name
1539: newguid := bism_utils.get_guid;
1545: COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1546: select 'N', OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,newparentid,tgtfid,myid,myid,anon_obj_name, TITLE, APPLICATION,
1547: DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1548: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED from bism_objects where object_id = i.containee_id ;
1549: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (newparentid,newguid,i.aggregate_info);
1550: copy_next_level(i.containee_id,newguid,tgtfid,myid,dummycounter,copytype);
1551: end if;
1552: elsif user_visible_var = 'N' then
1553: newguid := bism_utils.get_guid;
1561: COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1562: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,newparentid,tgtfid,myid,myid,anon_obj_name, TITLE,
1563: APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1564: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED from bism_objects where object_id = i.containee_id ;
1565: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (newparentid,newguid,i.aggregate_info);
1566: else
1567: -- if anon name length generated here exceeds 64, copy the existing name
1568: insert into bism_objects
1569: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,
1571: COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1572: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,newparentid,tgtfid,myid,myid,OBJECT_NAME, TITLE,
1573: APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1574: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED from bism_objects where object_id = i.containee_id ;
1575: insert into bism_aggregates (CONTAINER_ID, CONTAINEE_ID, AGGREGATE_INFO) values (newparentid,newguid,i.aggregate_info);
1576: end if;
1577: copy_next_level(i.containee_id,newguid,tgtfid,myid,dummycounter,copytype);
1578: end if;
1579: end loop;
1774: A.KEYWORDS, A.XML, A.APPLICATION_SUBTYPE1, A.COMP_SUBTYPE1, A.COMP_SUBTYPE2,A.COMP_SUBTYPE3,TIME_DATE_LAST_ACCESSED,
1775: T1.container_id,T1.aggregate_info
1776: from bism_objects A,
1777: (
1778: select distinct containee_id,container_id,aggregate_info from bism_aggregates start with containee_id = objid and container_id='30' connect by container_id = prior containee_id
1779: )
1780: T1
1781: where A.object_id=T1.containee_id
1782: )
1851: T1.OBJECT_NAME, T1.TITLE, T1.APPLICATION, T1.DATABASE, T1.DESCRIPTION, T1.KEYWORDS, T1.XML,
1852: T1.APPLICATION_SUBTYPE1, T1.COMP_SUBTYPE1, T1.COMP_SUBTYPE2, T1.COMP_SUBTYPE3, T1.TIME_DATE_LAST_ACCESSED, T2.container_id,
1853: T2.containee_id,T2.AGGREGATE_INFO,
1854: decode(T1.USER_VISIBLE,'Y',bism_core.get_object_full_name(object_id),'') FULLNAME
1855: from bism_objects T1, bism_aggregates T2
1856: where
1857: /* make sure it is a visible object*/
1858: 1 = (select '1' from bism_objects where object_id = objid and user_visible = 'Y') and
1859: /* fetch the entire hierachry looking up the aggregates table*/
1858: 1 = (select '1' from bism_objects where object_id = objid and user_visible = 'Y') and
1859: /* fetch the entire hierachry looking up the aggregates table*/
1860: object_id in (
1861: select distinct containee_id
1862: from bism_aggregates
1863: start with containee_id = objid
1864: connect by container_id = prior containee_id
1865: ) and T1.object_id = T2.containee_id
1866: --apply security check
1904: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,
1905: KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2, COMP_SUBTYPE3, TIME_DATE_LAST_ACCESSED
1906: from bism_objects where object_id in
1907: (select distinct containee_id
1908: from bism_aggregates start with containee_id = cid
1909: connect by container_id = prior containee_id
1910: )
1911: ) T1,
1912: (select distinct container_id,containee_id, aggregate_info
1909: connect by container_id = prior containee_id
1910: )
1911: ) T1,
1912: (select distinct container_id,containee_id, aggregate_info
1913: from bism_aggregates start with containee_id= cid
1914: connect by container_id = prior containee_id
1915: ) T2
1916: where
1917: /* now apply these rules : 1. top level object must be user_visible */
1950: decode(T.CREATED_BY,T.CREATED_BY,(select subject_name from bism_subjects where subject_id = T.CREATED_BY and subject_type='u'),null),
1951: decode(T.LAST_MODIFIED_BY,T.LAST_MODIFIED_BY,(select subject_name from bism_subjects where subject_id = T.LAST_MODIFIED_BY and subject_type='u'),null),
1952: T.OBJECT_NAME, T.TITLE, T.APPLICATION, T.DATABASE, T.DESCRIPTION,
1953: T.KEYWORDS, T.XML, T.APPLICATION_SUBTYPE1, T.COMP_SUBTYPE1, T.COMP_SUBTYPE2,T.COMP_SUBTYPE3, T.TIME_DATE_LAST_ACCESSED,
1954: /*1. containee_id is not fetched from bism_aggregates because it is pulling several extra rows
1955: when an object is shared by multiple containers, however containee_id is same as object_id
1956: from bism_objects */
1957: T.container_id,T.aggregate_info,
1958: decode(T.USER_VISIBLE,'Y',bism_core.get_object_full_name(T.OBJECT_ID),'') FULLNAME
1970: and if so, we only want to fetch it once */
1971: /* 4. container_id = '30' is important because an object may have multiple containers
1972: in which case we end up fetching those rows as well, which is useless
1973: */
1974: select distinct containee_id,container_id,aggregate_info from bism_aggregates start with containee_id = cid and container_id='30' connect by container_id = prior containee_id
1975: )
1976: T1
1977: /* 5. fetch only the required object hierarchy */
1978: where A.object_id=T1.containee_id
2275: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2276: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2277: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2278: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2279: p_container_id2 bism_aggregates.CONTAINER_ID%type,
2280: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type,
2281: p_ext_attrs_clob CLOB,
2282: p_time_last_loaded bism_objects.TIME_DATE_LAST_ACCESSED%type
2283: )
2276: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2277: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2278: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2279: p_container_id2 bism_aggregates.CONTAINER_ID%type,
2280: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type,
2281: p_ext_attrs_clob CLOB,
2282: p_time_last_loaded bism_objects.TIME_DATE_LAST_ACCESSED%type
2283: )
2284: is
2348: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2349: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2350: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2351: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2352: p_container_id2 bism_aggregates.CONTAINER_ID%type,
2353: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type
2354: )
2355: is
2356: ret varchar2(1);
2349: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2350: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2351: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2352: p_container_id2 bism_aggregates.CONTAINER_ID%type,
2353: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type
2354: )
2355: is
2356: ret varchar2(1);
2357: created_subid bism_subjects.subject_id%type;
2388: bind_aggregate(p_container_id2,p_oid,p_aggregate_info);
2389: end bind;
2390:
2391: procedure bind_aggregate
2392: (p_container_id bism_aggregates.CONTAINER_ID%type,
2393: p_containee_id bism_aggregates.CONTAINEE_ID%type,
2394: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type)
2395: is
2396: begin
2389: end bind;
2390:
2391: procedure bind_aggregate
2392: (p_container_id bism_aggregates.CONTAINER_ID%type,
2393: p_containee_id bism_aggregates.CONTAINEE_ID%type,
2394: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type)
2395: is
2396: begin
2397: insert into bism_aggregates (container_id, containee_id, aggregate_info) values (p_container_id,p_containee_id,p_aggregate_info);
2390:
2391: procedure bind_aggregate
2392: (p_container_id bism_aggregates.CONTAINER_ID%type,
2393: p_containee_id bism_aggregates.CONTAINEE_ID%type,
2394: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type)
2395: is
2396: begin
2397: insert into bism_aggregates (container_id, containee_id, aggregate_info) values (p_container_id,p_containee_id,p_aggregate_info);
2398: end bind_aggregate;
2393: p_containee_id bism_aggregates.CONTAINEE_ID%type,
2394: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type)
2395: is
2396: begin
2397: insert into bism_aggregates (container_id, containee_id, aggregate_info) values (p_container_id,p_containee_id,p_aggregate_info);
2398: end bind_aggregate;
2399:
2400: function list_bindings
2401: (p_fid bism_objects.FOLDER_ID%type,
2432: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2433: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2434: p_ext_attrs_clob CLOB,
2435: p_time_last_loaded bism_objects.TIME_DATE_LAST_ACCESSED%type,
2436: p_aggregate_info bism_aggregates.AGGREGATE_INFO%type,
2437: p_obj_is_top_level varchar2)
2438: is
2439: ret varchar2(1);
2440: created_subid bism_subjects.subject_id%type;
3263: select /*+ INDEX(BISM_OBJECTS) */ object_name as object_name, object_id as object_id, object_type_id as object_type_id, user_visible as user_visible
3264: from bism_objects
3265: where object_id in
3266: (
3267: select /*+ INDEX(BISM_AGGREGATES) */ container_id from bism_aggregates
3268: where containee_id in
3269: (
3270: select /*+ INDEX(BISM_OBJECTS) */ object_id from bism_objects
3271: where