[Home] [Help]
33:
34: function get_last_object_id(fid raw,path varchar2,startpos in out nocopy integer,myid raw)
35: return raw
36: is
37: oid bism_objects.object_id%type;
38: typeid bism_objects.object_type_id%type;
39: ret varchar2(1) := 'n';
40: newstr varchar2(2000) := '';
41: len integer:=0;
34: function get_last_object_id(fid raw,path varchar2,startpos in out nocopy integer,myid raw)
35: return raw
36: is
37: oid bism_objects.object_id%type;
38: typeid bism_objects.object_type_id%type;
39: ret varchar2(1) := 'n';
40: newstr varchar2(2000) := '';
41: len integer:=0;
42: begin
56: len := nvl(length(newstr),0);
57:
58: if len <> 0 then
59: begin
60: select object_id,object_type_id into oid,typeid from bism_objects where folder_id = fid and object_name = newstr and user_visible = 'Y';
61: ret := bism_core.check_lookup_access(oid,typeid,'Y',myid);
62: if ret = 'y' then
63: return get_last_object_id(oid,path,startpos,myid);
64: end if;
77: is
78: ret varchar2(1);
79: begin
80: -- modified by ccchow, check delete access for objects also
81: for i in (select object_id,object_name from bism_objects where object_type_id = 100 and user_visible = 'Y' start with object_id = fid connect by folder_id = prior object_id)
82: loop
83: ret := check_del_access_for_folder(i.object_id,myid);
84: end loop;
85:
82: loop
83: ret := check_del_access_for_folder(i.object_id,myid);
84: end loop;
85:
86: delete from bism_objects where object_id = fid and object_type_id = 100 and user_visible = 'Y';
87: end delete_folder;
88:
89: procedure delete_folder(fid raw,path varchar2,myid raw)
90: is
88:
89: procedure delete_folder(fid raw,path varchar2,myid raw)
90: is
91: ret varchar2(1);
92: oid bism_objects.object_id%type;
93: startpos integer := 1; --must be initd to one
94: begin
95: oid := get_last_object_id(fid,path,startpos,myid);
96:
94: begin
95: oid := get_last_object_id(fid,path,startpos,myid);
96:
97: -- modified by ccchow, check delete access for objects also
98: for i in (select object_id,object_name from bism_objects where object_type_id = 100 and user_visible = 'Y' start with object_id = oid connect by folder_id = prior object_id)
99: loop
100: ret := check_del_access_for_folder(i.object_id,myid);
101: end loop;
102:
99: loop
100: ret := check_del_access_for_folder(i.object_id,myid);
101: end loop;
102:
103: delete from bism_objects where object_id = oid and object_type_id = 100 and user_visible = 'Y';
104: end delete_folder;
105:
106: -- new function added to check delete access of all objects within a folder
107: function check_del_access_for_folder(fid raw,myid raw)
112: -- first check the folder itself
113: ret := bism_access_control.check_del_access(fid,null,'Y',null,myid);
114:
115: -- now check its children
116: for i in (select object_id from bism_objects where folder_id = fid and user_visible = 'Y')
117: loop
118: ret := check_obj_del_access(i.object_id,fid,myid);
119: end loop;
120:
158:
159: -- modified for object level security (ccchow)
160: procedure delete_object(fid raw,objname varchar2,myid raw)
161: is
162: typeid bism_objects.object_type_id%type;
163: ret varchar2(1) := 'n';
164:
165: -- added for obj level security
166: oid bism_objects.object_id%type;
162: typeid bism_objects.object_type_id%type;
163: ret varchar2(1) := 'n';
164:
165: -- added for obj level security
166: oid bism_objects.object_id%type;
167: have_del_access varchar2(1) := 'n';
168:
169: -- new exception used for obj access control (ccchow)
170: insufficient_privileges EXCEPTION;
171: PRAGMA EXCEPTION_INIT(insufficient_privileges, -20400);
172: begin
173: begin
174: -- make sure that the object being delete is not folder
175: select object_type_id,object_id into typeid,oid from bism_objects where folder_id = fid and object_name = objname and user_visible='Y';
176: if typeid is null then
177: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
178: end if;
179:
190: end;
191:
192: -- the following check if condition to be removed
193: if ret = 'y' then
194: delete from bism_objects where folder_id = fid and object_name = objname and user_visible= 'Y';
195: if bism_core.v_auto_commit = TRUE then
196: commit;
197: end if;
198: else
232:
233: procedure delete_folder_wo_security(fid raw,myid raw)
234: is
235: begin
236: delete from bism_objects where object_id = fid and object_type_id = 100 and user_visible = 'Y';
237: end;
238:
239: -- not used in 3.0, see new check_lookup_access method
240: function check_lookup_access(oid raw,fid raw,objtype number,visible varchar2,myid raw)
278:
279: function prepare_rebind(fid raw,oname varchar2,myid raw,ids out nocopy bism_object_ids, current_time out nocopy date,num number,status out nocopy integer)
280: return raw
281: is
282: typeid bism_objects.object_type_id%type;
283: oid bism_objects.object_id%type;
284: tempid bism_objects.object_id%type;
285: foldername bism_objects.object_name%type;
286: ret varchar2(1) := 'n';
279: function prepare_rebind(fid raw,oname varchar2,myid raw,ids out nocopy bism_object_ids, current_time out nocopy date,num number,status out nocopy integer)
280: return raw
281: is
282: typeid bism_objects.object_type_id%type;
283: oid bism_objects.object_id%type;
284: tempid bism_objects.object_id%type;
285: foldername bism_objects.object_name%type;
286: ret varchar2(1) := 'n';
287: begin
280: return raw
281: is
282: typeid bism_objects.object_type_id%type;
283: oid bism_objects.object_id%type;
284: tempid bism_objects.object_id%type;
285: foldername bism_objects.object_name%type;
286: ret varchar2(1) := 'n';
287: begin
288: ids := bism_object_ids();
281: is
282: typeid bism_objects.object_type_id%type;
283: oid bism_objects.object_id%type;
284: tempid bism_objects.object_id%type;
285: foldername bism_objects.object_name%type;
286: ret varchar2(1) := 'n';
287: begin
288: ids := bism_object_ids();
289: -- make sure the folder exists and that the user has delete
289: -- make sure the folder exists and that the user has delete
290: -- privilege on it
291: begin
292:
293: select object_id into oid from bism_objects where object_id = fid;
294: --OK, now check the privilege
295: ret := bism_access_control.check_del_access(null,fid,'n',null,myid);
296: exception
297: when no_data_found then
301:
302: begin
303: if ret = 'y' then
304: -- this user has access to the folder, let's see if object exists
305: select object_id,object_type_id into oid,typeid from bism_objects where folder_id = fid and object_name = oname and user_visible='Y';
306: -- ok the object exists
307:
308:
309: if typeid <> 100 then
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
318:
319: -- because of cascade effect all the anonymous sub objects of the
320: -- top level object will be deleted
317: --leave the top level object alone but delete every anonymous object underneath it
318:
319: -- because of cascade effect all the anonymous sub objects of the
320: -- top level object will be deleted
321: delete from bism_objects where container_id = oid;
322:
323: --everything went well so fetch ids and return it
324: begin
325: for i in 1..num-1 loop
337: return oid;
338: end if;
339: -- do commit from jdbc
340: else
341: select object_name into foldername from bism_objects where object_id = fid;
342: status := BISM_CONSTANTS.INSUFFICIENT_PRIVILEGES;
343: return null;
344: end if;
345: exception
364:
365: function prepare_rebind_30(fid raw,oname varchar2,myid raw,ids out nocopy raw, current_time out nocopy date,num number,status out nocopy integer)
366: return raw
367: is
368: typeid bism_objects.object_type_id%type;
369: oid bism_objects.object_id%type;
370: tempid bism_objects.object_id%type;
371: foldername bism_objects.object_name%type;
372: ret varchar2(1) := 'n';
365: function prepare_rebind_30(fid raw,oname varchar2,myid raw,ids out nocopy raw, current_time out nocopy date,num number,status out nocopy integer)
366: return raw
367: is
368: typeid bism_objects.object_type_id%type;
369: oid bism_objects.object_id%type;
370: tempid bism_objects.object_id%type;
371: foldername bism_objects.object_name%type;
372: ret varchar2(1) := 'n';
373: begin
366: return raw
367: is
368: typeid bism_objects.object_type_id%type;
369: oid bism_objects.object_id%type;
370: tempid bism_objects.object_id%type;
371: foldername bism_objects.object_name%type;
372: ret varchar2(1) := 'n';
373: begin
374: --ids := bism_object_ids();
367: is
368: typeid bism_objects.object_type_id%type;
369: oid bism_objects.object_id%type;
370: tempid bism_objects.object_id%type;
371: foldername bism_objects.object_name%type;
372: ret varchar2(1) := 'n';
373: begin
374: --ids := bism_object_ids();
375: -- the caller shouldn't ask for more than 2000 ids at a time
379: -- make sure the folder exists and that the user has delete
380: -- privilege on it
381: begin
382:
383: select object_id into oid from bism_objects where object_id = fid;
384: --OK, now check the privilege
385: ret := bism_access_control.check_del_access(null,fid,'n',null,myid);
386: exception
387: when no_data_found then
391:
392: begin
393: if ret = 'y' then
394: -- this user has access to the folder, let's see if object exists
395: select object_id,object_type_id into oid,typeid from bism_objects where folder_id = fid and object_name = oname and user_visible='Y';
396: -- ok the object exists
397:
398:
399: if typeid <> 100 then
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
408:
409: -- because of cascade effect all the anonymous sub objects of the
410: -- top level object will be deleted
407: --leave the top level object alone but delete every anonymous object underneath it
408:
409: -- because of cascade effect all the anonymous sub objects of the
410: -- top level object will be deleted
411: delete from bism_objects where container_id = oid;
412:
413: --everything went well so fetch ids and return it
414: begin
415: for i in 1..num-1 loop
428: return oid;
429: end if;
430: -- do commit from jdbc
431: else
432: select object_name into foldername from bism_objects where object_id = fid;
433: status := BISM_CONSTANTS.INSUFFICIENT_PRIVILEGES;
434: return null;
435: end if;
436: exception
455: end;
456:
457: procedure lookup_folder_wo_security(fid raw,path varchar2,a_objid out nocopy raw,myid raw,startpos in out nocopy integer)
458: is
459: oid bism_objects.object_id%type;
460: typeid bism_objects.object_type_id%type;
461: ret varchar2(1) := 'n';
462: newstr varchar2(2000) := '';
463: len integer :=0;
456:
457: procedure lookup_folder_wo_security(fid raw,path varchar2,a_objid out nocopy raw,myid raw,startpos in out nocopy integer)
458: is
459: oid bism_objects.object_id%type;
460: typeid bism_objects.object_type_id%type;
461: ret varchar2(1) := 'n';
462: newstr varchar2(2000) := '';
463: len integer :=0;
464: begin
468: newstr := get_next_element(path,'/',startpos);
469: len := nvl(length(newstr),0);
470: if len <> 0 then
471: begin
472: select object_id into oid from bism_objects where folder_id = fid and object_name = newstr and object_type_id = 100 and user_visible = 'Y';
473:
474: if startpos <> 0 then
475: lookup_folder_wo_security(oid,path,a_objid,myid,startpos);
476: else
489: -- new prepare rebind method
490: function prepare_rebind(fid raw,folder_path varchar2,oname varchar2,myid raw,ids out nocopy bism_object_ids, current_time out nocopy date,num number,status out nocopy integer,parentid out nocopy raw)
491: return raw
492: is
493: typeid bism_objects.object_type_id%type;
494: oid bism_objects.object_id%type;
495: tempid bism_objects.object_id%type;
496: pos integer := 1;
497: begin
490: function prepare_rebind(fid raw,folder_path varchar2,oname varchar2,myid raw,ids out nocopy bism_object_ids, current_time out nocopy date,num number,status out nocopy integer,parentid out nocopy raw)
491: return raw
492: is
493: typeid bism_objects.object_type_id%type;
494: oid bism_objects.object_id%type;
495: tempid bism_objects.object_id%type;
496: pos integer := 1;
497: begin
498: ids := bism_object_ids();
491: return raw
492: is
493: typeid bism_objects.object_type_id%type;
494: oid bism_objects.object_id%type;
495: tempid bism_objects.object_id%type;
496: pos integer := 1;
497: begin
498: ids := bism_object_ids();
499: -- make sure the folder exists
510: end if;
511:
512: begin
513: -- check if object exists
514: select object_id,object_type_id into oid,typeid from bism_objects where folder_id = parentid and object_name = oname and user_visible='Y';
515:
516: -- ok the object exists
517: if typeid <> 100 then
518:
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
526:
527: -- because of cascade effect all the anonymous sub objects of the
528: -- top level object will be deleted
525: --leave the top level object alone but delete every anonymous object underneath it
526:
527: -- because of cascade effect all the anonymous sub objects of the
528: -- top level object will be deleted
529: delete from bism_objects where container_id = oid;
530:
531: --everything went well so fetch ids and return it
532: for i in 1..num-1
533: loop
566: -- new prepare rebind method without ADTs
567: function prepare_rebind_30(fid raw,folder_path varchar2,oname varchar2,myid raw,ids out nocopy raw, current_time out nocopy date,num number,status out nocopy integer,parentid out nocopy raw)
568: return raw
569: is
570: typeid bism_objects.object_type_id%type;
571: oid bism_objects.object_id%type;
572: tempid bism_objects.object_id%type;
573: pos integer := 1;
574: begin
567: function prepare_rebind_30(fid raw,folder_path varchar2,oname varchar2,myid raw,ids out nocopy raw, current_time out nocopy date,num number,status out nocopy integer,parentid out nocopy raw)
568: return raw
569: is
570: typeid bism_objects.object_type_id%type;
571: oid bism_objects.object_id%type;
572: tempid bism_objects.object_id%type;
573: pos integer := 1;
574: begin
575: --ids := bism_object_ids();
568: return raw
569: is
570: typeid bism_objects.object_type_id%type;
571: oid bism_objects.object_id%type;
572: tempid bism_objects.object_id%type;
573: pos integer := 1;
574: begin
575: --ids := bism_object_ids();
576: -- make sure the folder exists
587: end if;
588:
589: begin
590: -- check if object exists
591: select object_id,object_type_id into oid,typeid from bism_objects where folder_id = parentid and object_name = oname and user_visible='Y';
592:
593: -- ok the object exists
594: if typeid <> 100 then
595:
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
603:
604: -- because of cascade effect all the anonymous sub objects of the
605: -- top level object will be deleted
602: --leave the top level object alone but delete every anonymous object underneath it
603:
604: -- because of cascade effect all the anonymous sub objects of the
605: -- top level object will be deleted
606: delete from bism_objects where container_id = oid;
607:
608: --everything went well so fetch ids and return it
609: for i in 1..num-1
610: loop
646: function check_modify_attrs_access(fid raw,objname varchar2,myid raw,status out nocopy number,callerid in number)
647: return varchar2
648: is
649: ret varchar2(1) := 'n';
650: oid bism_objects.object_id%type;
651: type_id bism_objects.object_type_id%type;
652:
653: -- added for obj access control (ccchow)
654: have_upd_access varchar2(1) := 'n';
647: return varchar2
648: is
649: ret varchar2(1) := 'n';
650: oid bism_objects.object_id%type;
651: type_id bism_objects.object_type_id%type;
652:
653: -- added for obj access control (ccchow)
654: have_upd_access varchar2(1) := 'n';
655: insufficient_privileges EXCEPTION;
662: -- callerid = 1 represents modiAttributes java function
663:
664:
665: begin
666: select object_type_id,object_id into type_id,oid from bism_objects where folder_id = fid and object_name = objname and user_visible = 'Y';
667:
668: if type_id = 100 then
669: -- if the object being renamed is a folder, we have two scenarios:
670: -- 1. if the parent folder has ADD_FOLDER (ADD and READ in NT) privilege
781: decode(CREATED_BY,CREATED_BY,(select subject_name from bism_subjects where subject_id = created_by and subject_type='u'),null),
782: decode(LAST_MODIFIED_BY,LAST_MODIFIED_BY,(select subject_name from bism_subjects where subject_id = LAST_MODIFIED_BY and subject_type='u'), null),
783: OBJECT_NAME,TITLE,APPLICATION,DATABASE,
784: DESCRIPTION,KEYWORDS,APPLICATION_SUBTYPE1,COMP_SUBTYPE1,COMP_SUBTYPE2,COMP_SUBTYPE3,TIME_DATE_LAST_ACCESSED
785: from bism_objects
786: where 'y' = bism_core.check_get_attrs_access(p_fid,p_objname,p_myid)
787: and user_visible = 'Y'
788: and folder_id = p_fid
789: and object_name = p_objname;
792:
793: function check_get_attrs_access(fid raw,objname varchar2,myid raw)
794: return varchar2
795: is
796: type_id bism_objects.object_type_id%type;
797: begin
798:
799: begin
800: -- determine the type of object the user is trying to do getAttributes on
800: -- determine the type of object the user is trying to do getAttributes on
801: -- if folder, do not do any security check
802: -- if it is an object, then the user MUST have atleast LIST priv on the
803: -- parent folder
804: select object_type_id into type_id from bism_objects where folder_id = fid and object_name = objname and user_visible = 'Y';
805: exception
806: when no_data_found then
807: -- we dont care whether th eobject is not found or folder is not found
808: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
914: -- if so we cannot move src folder to target folder
915: -- ex : assume : folder foo contains folder goo
916: -- user attempts to move foo to goo which is illegal
917: -- so check to see if target (goo) is in the path of source (foo)
918: select 'y' into v_var from dual where tgtfid = any ( select object_id from bism_objects where object_type_id = 100 start with object_id = srcfid connect by folder_id = prior object_id);
919: exception
920: when no_data_found then
921: return false;
922: end;
925: end;
926:
927: procedure move(srcfid raw,tgtfid raw,objname varchar2,myid raw)
928: is
929: objid bism_objects.object_id%type:= null;
930: objtypeid bism_objects.object_type_id%type := 0;
931: begin
932:
933: if srcfid = tgtfid then
926:
927: procedure move(srcfid raw,tgtfid raw,objname varchar2,myid raw)
928: is
929: objid bism_objects.object_id%type:= null;
930: objtypeid bism_objects.object_type_id%type := 0;
931: begin
932:
933: if srcfid = tgtfid then
934: return;
935: end if;
936:
937: begin
938: -- make sure target folder exists
939: select object_id,object_type_id into objid,objtypeid from bism_objects where object_id = tgtfid and user_visible = 'Y';
940: if objtypeid <> 100 then
941: raise_application_error(BISM_ERRORCODES.TGT_IS_NOT_FOLDER,'Illegal move : Target object is not a folder');
942: end if;
943: exception
950: objtypeid := 0;
951: objid := null;
952:
953: begin
954: select object_id,object_type_id into objid,objtypeid from bism_objects where folder_id = srcfid and object_name = objname and user_visible = 'Y';
955: if objtypeid = 100 then
956: move_folder(srcfid ,tgtfid ,objname ,objid, myid );
957: else
958: move_object(srcfid ,tgtfid ,objname ,objid, myid );
970:
971: procedure move_folder(topfolderid raw,tgtfid raw,objname varchar2, srcfid raw,myid raw)
972: is
973: priv bism_permissions.privilege%type;
974: foldername bism_objects.object_name%type;
975: move_not_allowed boolean := true;
976: begin
977:
978: move_not_allowed := is_src_ancestor_of_target(srcfid,tgtfid);
999: -- 1. if folder does not exist
1000: -- 2. if user does not have privilege on folder
1001: if priv is null then
1002: begin
1003: select object_name into foldername from bism_objects where object_id = srcfid;
1004: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for parent folder');
1005: exception
1006: when no_data_found then
1007: raise_application_error(BISM_ERRORCODES.PARENT_FOLDER_NOT_FOUND ,'Parent folder not found');
1027:
1028:
1029: if priv is null then
1030: begin
1031: select object_name into foldername from bism_objects where object_id = srcfid;
1032: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for source folder');
1033: exception
1034: when no_data_found then
1035: raise_application_error(BISM_ERRORCODES.SRC_FOLDER_NOT_FOUND ,'Source folder not found');
1056: -- if privilege does not exist on the folder, priv will be set to null
1057: -- but it wont raise data not found exception
1058: if priv is null then
1059: begin
1060: select object_name into foldername from bism_objects where object_id = tgtfid;
1061: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for target folder '||foldername);
1062: exception
1063: when no_data_found then
1064: raise_application_error(BISM_ERRORCODES.TGT_FOLDER_NOT_FOUND ,'Target folder not found');
1074:
1075: -- lastly check to make sure user atleast has LIST priv on all sub folders
1076: -- of source folder (this is what NT does)
1077: begin
1078: for i in (select object_id from bism_objects where object_type_id=100 start with object_id = srcfid connect by folder_id = prior object_id) loop
1079: priv := 0;
1080: select max(privilege) into priv from bism_permissions where
1081: object_id = i.object_id and subject_id in
1082: (
1097:
1098: -- if we got this far means that the user has privileges on both the src
1099: -- and target folder, now lets do the move operation
1100: -- NT preserves the time stamps when folder is moved
1101: update bism_objects set folder_id = tgtfid,last_modified_by = myid where object_id = srcfid;
1102:
1103: end;
1104:
1105: -- modified by ccchow, to support object level security
1105: -- modified by ccchow, to support object level security
1106: procedure move_object(srcfid raw,tgtfid raw,objname varchar2,objid raw,myid raw)
1107: is
1108: priv bism_permissions.privilege%type;
1109: foldername bism_objects.object_name%type;
1110: begin
1111: -- first test the object itself (added - ccchow)
1112: begin
1113: priv := 0;
1114: select max(privilege) into priv from bism_permissions where object_id = objid and subject_id in (select group_id from bism_groups where user_id = myid);
1115:
1116: if priv is null then
1117: begin
1118: select object_name into foldername from bism_objects where object_id = objid;
1119: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for object');
1120: exception
1121: when no_data_found then
1122: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND ,'Object not found');
1140: -- 1. if folder does not exist
1141: -- 2. if user does not have privilege on folder
1142: if priv is null then
1143: begin
1144: select object_name into foldername from bism_objects where object_id = srcfid;
1145: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for source folder '||foldername);
1146: exception
1147: when no_data_found then
1148: raise_application_error(BISM_ERRORCODES.SRC_FOLDER_NOT_FOUND ,'Source folder not found');
1163: -- if privilege does not exist on the folder, priv will be set to null
1164: -- but it wont raise data not found exception
1165: if priv is null then
1166: begin
1167: select object_name into foldername from bism_objects where object_id = tgtfid;
1168: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for target folder '||foldername);
1169: exception
1170: when no_data_found then
1171: raise_application_error(BISM_ERRORCODES.TGT_FOLDER_NOT_FOUND ,'Target folder not found');
1181: -- and target folder, now lets do the move operation
1182: --
1183: -- preserve the time stamps during move operation
1184: -- (ccchow) The ACL will also be preserved since we only updated the folder id etc.
1185: for i in (select object_id from bism_objects start with object_id = objid connect by container_id = prior object_id)
1186: loop
1187: update bism_objects set folder_id = tgtfid,last_modified_by = myid where bism_objects.object_id = i.object_id;
1188: end loop;
1189:
1183: -- preserve the time stamps during move operation
1184: -- (ccchow) The ACL will also be preserved since we only updated the folder id etc.
1185: for i in (select object_id from bism_objects start with object_id = objid connect by container_id = prior object_id)
1186: loop
1187: update bism_objects set folder_id = tgtfid,last_modified_by = myid where bism_objects.object_id = i.object_id;
1188: end loop;
1189:
1190: end move_object;
1191:
1191:
1192: function can_copy_folder(srcfid raw,tgtfid raw,myid raw)
1193: return boolean
1194: is
1195: foldername bism_objects.object_name%type;
1196: priv bism_permissions.privilege%type := 0;
1197: copy_not_allowed boolean := true;
1198: begin
1199: -- make sure that the destination folder is not a sub folder of src folder
1202: raise_application_error(BISM_ERRORCODES.ILLEGAL_COPY,'Target folder is subfolder of source folder');
1203: end if;
1204: -- make sure user has atleast READ access on all sub folders
1205: begin
1206: for i in (select object_id from bism_objects where object_type_id=100 start with object_id = srcfid connect by folder_id = prior object_id) loop
1207: priv := 0;
1208: select max(privilege) into priv from bism_permissions where
1209: object_id = i.object_id and subject_id in
1210: (
1235: -- if privilege does not exist on the folder, priv will be set to null
1236: -- but it wont raise data not found exception
1237: if priv is null then
1238: begin
1239: select object_name into foldername from bism_objects where object_id = tgtfid;
1240: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for target folder '||foldername);
1241: exception
1242: when no_data_found then
1243: raise_application_error(BISM_ERRORCODES.TGT_FOLDER_NOT_FOUND,'Target folder not found');
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
1263:
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
1263:
1264: -- NOTE : dummycounter is not used any more after fixing bug # 4639756
1268: -- copy the top level folder first
1269: -- we allow user to specify name for the top folder being copied
1270: newguid := bism_utils.get_guid;
1271: if first_level = true then
1272: insert into BISM_OBJECTS
1273: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,LAST_MODIFIED_BY,
1274: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1275: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1276: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,utl_raw.cast_to_raw('0'),tgtfid,myid,myid,destobjname, TITLE,
1275: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1276: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,utl_raw.cast_to_raw('0'),tgtfid,myid,myid,destobjname, TITLE,
1277: APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,
1278: TIME_DATE_LAST_ACCESSED
1279: from bism_objects
1280: where object_id = srcfid;
1281: else
1282: insert into bism_objects
1283: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,LAST_MODIFIED_BY,
1278: TIME_DATE_LAST_ACCESSED
1279: from bism_objects
1280: where object_id = srcfid;
1281: else
1282: insert into bism_objects
1283: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,LAST_MODIFIED_BY,
1284: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1285: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1286: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,utl_raw.cast_to_raw('0'),tgtfid,myid,myid,object_name, TITLE, APPLICATION,
1284: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1285: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
1286: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, sysdate,sysdate,newguid,utl_raw.cast_to_raw('0'),tgtfid,myid,myid,object_name, TITLE, APPLICATION,
1287: DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED
1288: from bism_objects
1289: where object_id = srcfid ;
1290: end if;
1291:
1292: --above object_id becomes newTargetFolder for child objects
1291:
1292: --above object_id becomes newTargetFolder for child objects
1293: new_target_folder := newguid;
1294: -- now start copying the contents of the source folder
1295: for i in (select object_id,object_type_id,object_name from bism_objects where folder_id = srcfid and user_visible='Y') loop
1296: if i.object_type_id = 100 then
1297: copy_folder(i.object_id,new_target_folder,null,myid,copytype,false);
1298: else
1299: copy_object(srcfid, new_target_folder, i.object_name, i.object_name, myid, copytype);
1304:
1305:
1306: procedure copy(srcfid raw,tgtfid raw,srcobjname varchar2,destobjname varchar2,myid raw,copytype integer)
1307: is
1308: objid bism_objects.object_id%type:= null;
1309: objtypeid bism_objects.object_type_id%type := 0;
1310: can_copy_folder_var boolean := false;
1311: begin
1312:
1305:
1306: procedure copy(srcfid raw,tgtfid raw,srcobjname varchar2,destobjname varchar2,myid raw,copytype integer)
1307: is
1308: objid bism_objects.object_id%type:= null;
1309: objtypeid bism_objects.object_type_id%type := 0;
1310: can_copy_folder_var boolean := false;
1311: begin
1312:
1313: if copytype not in (0,1) then
1316:
1317: begin
1318:
1319: -- make sure target exists
1320: select object_id,object_type_id into objid,objtypeid from bism_objects where object_id = tgtfid;
1321: if objtypeid <> 100 then
1322: raise_application_error(BISM_ERRORCODES.TGT_IS_NOT_FOLDER,'Target object is not folder');
1323: end if;
1324: exception
1333:
1334: begin
1335: -- note : srcfid here means the parent folder containing the folder/object that needs
1336: -- to be copied
1337: select object_id,object_type_id into objid,objtypeid from bism_objects where folder_id = srcfid and object_name = srcobjname and user_visible = 'Y';
1338: if objtypeid = 100 then
1339: --objid represents the folderid of the folder that needs to be copied
1340: can_copy_folder_var := can_copy_folder(objid,tgtfid,myid);
1341: -- if we cannot copy this folder, it will throw exception
1358: -- modified by ccchow to support object level security
1359: procedure copy_object(srcfid raw,tgtfid raw,srcobjname varchar2,destobjname varchar2,myid raw,copytype integer)
1360: is
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;
1359: procedure copy_object(srcfid raw,tgtfid raw,srcobjname varchar2,destobjname varchar2,myid raw,copytype integer)
1360: is
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;
1360: is
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;
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;
1370: app bism_objects.APPLICATION%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;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%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;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%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;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%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;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1367: oti bism_objects.object_type_id%type;
1368: ver bism_objects.VERSION%type;
1369: ttl bism_objects.TITLE%type;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1368: ver bism_objects.VERSION%type;
1369: ttl bism_objects.TITLE%type;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1369: ttl bism_objects.TITLE%type;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1370: app bism_objects.APPLICATION%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1371: db bism_objects.DATABASE%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1379: ext bism_objects.EXTENSIBLE_ATTRIBUTES%type;
1372: dsc bism_objects.DESCRIPTION%type;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1379: ext bism_objects.EXTENSIBLE_ATTRIBUTES%type;
1380: pass_copytype integer;
1373: kwds bism_objects.KEYWORDS%type;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1379: ext bism_objects.EXTENSIBLE_ATTRIBUTES%type;
1380: pass_copytype integer;
1381: dummycounter integer := 0;
1374: xml bism_objects.XML%type;
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1379: ext bism_objects.EXTENSIBLE_ATTRIBUTES%type;
1380: pass_copytype integer;
1381: dummycounter integer := 0;
1382: begin
1375: as1 bism_objects.APPLICATION_SUBTYPE1%type;
1376: cs1 bism_objects.COMP_SUBTYPE1%type;
1377: cs2 bism_objects.COMP_SUBTYPE2%type;
1378: cs3 bism_objects.COMP_SUBTYPE3%type;
1379: ext bism_objects.EXTENSIBLE_ATTRIBUTES%type;
1380: pass_copytype integer;
1381: dummycounter integer := 0;
1382: begin
1383:
1386:
1387:
1388: -- make sure the object exists before we attempt to do anything!
1389: begin
1390: select object_id into toplevelobjid from bism_objects where folder_id = srcfid and object_name = srcobjname and user_visible = 'Y';
1391: exception
1392: when no_data_found then
1393: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
1394: end;
1420: -- 1. if folder does not exist
1421: -- 2. if user does not have privilege on folder
1422: if priv is null then
1423: begin
1424: select object_name into foldername from bism_objects where object_id = srcfid;
1425: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for source folder '||foldername);
1426: exception
1427: when no_data_found then
1428: raise_application_error(BISM_ERRORCODES.SRC_FOLDER_NOT_FOUND,'Source folder not found');
1445: -- if privilege does not exist on the folder, priv will be set to null
1446: -- but it wont raise data not found exception
1447: if priv is null then
1448: begin
1449: select object_name into foldername from bism_objects where object_id = tgtfid;
1450: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'User has no privileges for target folder '||foldername);
1451: exception
1452: when no_data_found then
1453: raise_application_error(BISM_ERRORCODES.TGT_FOLDER_NOT_FOUND,'Target folder not found');
1487: newguid := bism_utils.get_guid;
1488: -- the new instance gets new time stamps (time_date_created and time_date_modified) as per NT
1489: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES
1490: into uv, oti, ver, ttl, app, db, dsc, kwds, xml, as1, cs1, cs2, cs3, ext
1491: from bism_objects
1492: where object_id =toplevelobjid;
1493: insert into bism_objects (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,LAST_MODIFIED_BY,
1494: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1495: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED) values
1489: select USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES
1490: into uv, oti, ver, ttl, app, db, dsc, kwds, xml, as1, cs1, cs2, cs3, ext
1491: from bism_objects
1492: where object_id =toplevelobjid;
1493: insert into bism_objects (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,LAST_MODIFIED_BY,
1494: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2,COMP_SUBTYPE3,
1495: EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED) values
1496: (uv, oti, ver, sysdate,sysdate,newguid,utl_raw.cast_to_raw('0'),tgtfid,myid,myid,destobjname, ttl, app, db, dsc, kwds, xml, as1, cs1, cs2, cs3, ext, sysdate);
1497: -- for shortcuts we always want to use shallow copy (only copy the shortcut, not the object that it points to)
1512: end copy_object;
1513:
1514: procedure copy_next_level(oldparentid raw,newparentid raw,tgtfid raw,myid raw,dummycounter in out nocopy integer,copytype integer)
1515: is
1516: anon_obj_name bism_objects.object_name%type;
1517: user_visible_var bism_objects.user_visible%type;
1518: newguid raw(16);
1519: begin
1520:
1513:
1514: procedure copy_next_level(oldparentid raw,newparentid raw,tgtfid raw,myid raw,dummycounter in out nocopy integer,copytype integer)
1515: is
1516: anon_obj_name bism_objects.object_name%type;
1517: user_visible_var bism_objects.user_visible%type;
1518: newguid raw(16);
1519: begin
1520:
1521: -- NOTE : dummycounter is not used any more after fixing bug # 4639756
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,
1533: -- just set up relationshin between this and its parent
1538: -- anonymous, give it a system generated name
1539: newguid := bism_utils.get_guid;
1540: anon_obj_name := 'SYS-'||newguid;
1541: -- the new instance gets new time stamps (time_date_created and time_date_modified) as per NT
1542: insert into bism_objects
1543: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,
1544: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
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,
1544: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
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
1554: anon_obj_name := 'SYS-'||newguid;
1555: if length(anon_obj_name) <= 64 then
1556: -- try to generate a new object name but there is no reason we cant use
1557: -- old anonymous name
1558: insert into bism_objects
1559: (USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,CREATED_BY,
1560: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1,
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,
1560: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1,
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
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,
1570: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
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,
1570: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION,KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
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;
1606: end;
1607:
1608: procedure lookup(fid raw,path bism_lookup_info_in_50_a,lookup_output in out nocopy bism_lookup_info_out_50_a,idx in out nocopy integer,myid raw)
1609: is
1610: oid bism_objects.object_id%type;
1611: typeid bism_objects.object_type_id%type;
1612: oname bism_objects.object_name%type;
1613: ret varchar2(1) := 'n';
1614: visible bism_objects.user_visible%type;
1607:
1608: procedure lookup(fid raw,path bism_lookup_info_in_50_a,lookup_output in out nocopy bism_lookup_info_out_50_a,idx in out nocopy integer,myid raw)
1609: is
1610: oid bism_objects.object_id%type;
1611: typeid bism_objects.object_type_id%type;
1612: oname bism_objects.object_name%type;
1613: ret varchar2(1) := 'n';
1614: visible bism_objects.user_visible%type;
1615: begin
1608: procedure lookup(fid raw,path bism_lookup_info_in_50_a,lookup_output in out nocopy bism_lookup_info_out_50_a,idx in out nocopy integer,myid raw)
1609: is
1610: oid bism_objects.object_id%type;
1611: typeid bism_objects.object_type_id%type;
1612: oname bism_objects.object_name%type;
1613: ret varchar2(1) := 'n';
1614: visible bism_objects.user_visible%type;
1615: begin
1616:
1610: oid bism_objects.object_id%type;
1611: typeid bism_objects.object_type_id%type;
1612: oname bism_objects.object_name%type;
1613: ret varchar2(1) := 'n';
1614: visible bism_objects.user_visible%type;
1615: begin
1616:
1617: if path.exists(idx) then
1618:
1616:
1617: if path.exists(idx) then
1618:
1619: begin
1620: select object_id,object_type_id,object_name,user_visible into oid,typeid,oname,visible from bism_objects where folder_id = fid and object_name = path(idx).objname and user_visible = 'Y';
1621: ret := bism_core.check_lookup_access(oid,typeid,visible,myid);
1622: if ret = 'y' then
1623: lookup_output.extend();
1624: lookup_output(lookup_output.count) := bism_lookup_info_out(oname,oid,typeid);
1634: end;
1635:
1636: procedure lookup(fid raw,path varchar2,a_objname out nocopy varchar2,a_objid out nocopy raw,a_typeid out nocopy number,myid raw,startpos in out nocopy integer)
1637: is
1638: oid bism_objects.object_id%type;
1639: typeid bism_objects.object_type_id%type;
1640: oname bism_objects.object_name%type;
1641: ret varchar2(1) := 'n';
1642: visible bism_objects.user_visible%type;
1635:
1636: procedure lookup(fid raw,path varchar2,a_objname out nocopy varchar2,a_objid out nocopy raw,a_typeid out nocopy number,myid raw,startpos in out nocopy integer)
1637: is
1638: oid bism_objects.object_id%type;
1639: typeid bism_objects.object_type_id%type;
1640: oname bism_objects.object_name%type;
1641: ret varchar2(1) := 'n';
1642: visible bism_objects.user_visible%type;
1643: newstr varchar2(2000) := '';
1636: procedure lookup(fid raw,path varchar2,a_objname out nocopy varchar2,a_objid out nocopy raw,a_typeid out nocopy number,myid raw,startpos in out nocopy integer)
1637: is
1638: oid bism_objects.object_id%type;
1639: typeid bism_objects.object_type_id%type;
1640: oname bism_objects.object_name%type;
1641: ret varchar2(1) := 'n';
1642: visible bism_objects.user_visible%type;
1643: newstr varchar2(2000) := '';
1644: len integer :=0;
1638: oid bism_objects.object_id%type;
1639: typeid bism_objects.object_type_id%type;
1640: oname bism_objects.object_name%type;
1641: ret varchar2(1) := 'n';
1642: visible bism_objects.user_visible%type;
1643: newstr varchar2(2000) := '';
1644: len integer :=0;
1645: len1 integer :=0;
1646: begin
1650: newstr := get_next_element(path,'/',startpos);
1651: len := nvl(length(newstr),0);
1652: if len <> 0 then
1653: begin
1654: select object_id,object_type_id,object_name,user_visible into oid,typeid,oname,visible from bism_objects where folder_id = fid and object_name = newstr and user_visible = 'Y';
1655:
1656: -- modified by ccchow, no need to check access of intermediate folders
1657: if startpos = 0 then
1658: ret := bism_core.check_lookup_access(oid,typeid,visible,myid);
1705: end if;
1706: end if;
1707: else
1708:
1709: for i in( select object_id from bism_objects start with object_id = startoid connect by prior folder_id = object_id and object_id <> stopoid ) loop
1710:
1711: select max(privilege) into priv from bism_permissions where object_id = i.object_id and subject_id in (select group_id from bism_groups where user_id = myid);
1712: if priv is null then
1713: -- user has no access to this folder
1735: begin
1736:
1737: -- absolute path from the root not including it
1738: -- if greater than 2000 chars put ...
1739: for j in(select object_name from bism_objects start with object_id = oid connect by prior folder_id = object_id and object_id <> '31' order by level desc) loop
1740: if length(j.object_name) + length(objfullname) <= 2000 then
1741: if isfirst = true then
1742: objfullname := j.object_name ;
1743: isfirst := false;
1772: A.TIME_DATE_MODIFIED, A.OBJECT_ID,A.FOLDER_ID, A.CREATED_BY,
1773: A.LAST_MODIFIED_BY, A.OBJECT_NAME, A.TITLE, A.APPLICATION, A.DATABASE, A.DESCRIPTION,
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
1808: null),
1809: OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION, KEYWORDS, XML,
1810: APPLICATION_SUBTYPE1, COMP_SUBTYPE1, COMP_SUBTYPE2, COMP_SUBTYPE3,
1811: decode(USER_VISIBLE,'Y',bism_core.get_object_full_name(object_id),'') FULLNAME
1812: from bism_objects where
1813: -- folder does not have aggregate info
1814: object_id = oid and
1815: -- apply security check
1816: -- technically speaking we dont need this because
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*/
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*/
1860: object_id in (
1861: select distinct containee_id
1862: from bism_aggregates
1868: because th euser would have access to the OID only when could access that object*/
1869: and 'y' = bism_core.check_lookup_access(T1.object_id,T1.object_type_id,T1.user_visible,myid);
1870: if traceLastLoaded = '1' then
1871: select sysdate into current_date from dual;
1872: update bism_objects set TIME_DATE_LAST_ACCESSED = current_date where object_id = objid;
1873: end if;
1874:
1875: return rc;
1876: exception
1902: from (SELECT /*+ NO_MERGE */ USER_VISIBLE, OBJECT_TYPE_ID, VERSION, TIME_DATE_CREATED,
1903: TIME_DATE_MODIFIED, OBJECT_ID, CONTAINER_ID, FOLDER_ID, CREATED_BY,
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: )
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 */
1918: 1 = (select '1' from bism_objects where object_id= objid and user_visible = 'Y')
1919: and
1920: /* 2. fetch only the require object hierarchy*/
1921: T1.object_id = T2.containee_id
1922: /*
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
1959: from
1960: (
1958: decode(T.USER_VISIBLE,'Y',bism_core.get_object_full_name(T.OBJECT_ID),'') FULLNAME
1959: from
1960: (
1961: SELECT /*+ NO_MERGE */ A.USER_VISIBLE, A.OBJECT_TYPE_ID, A.VERSION, A.TIME_DATE_CREATED,
1962: /*2. do not fetch container_id from bism_objects use container_id from bism_aggreagtes instead*/
1963: A.TIME_DATE_MODIFIED, A.OBJECT_ID, /*A.CONTAINER_ID, */ A.FOLDER_ID, A.CREATED_BY,
1964: A.LAST_MODIFIED_BY, A.OBJECT_NAME, A.TITLE, A.APPLICATION, A.DATABASE, A.DESCRIPTION,
1965: A.KEYWORDS, A.XML, A.APPLICATION_SUBTYPE1, A.COMP_SUBTYPE1, A.COMP_SUBTYPE2,A.COMP_SUBTYPE3, A.TIME_DATE_LAST_ACCESSED,
1966: T1.container_id,T1.aggregate_info
1963: A.TIME_DATE_MODIFIED, A.OBJECT_ID, /*A.CONTAINER_ID, */ A.FOLDER_ID, A.CREATED_BY,
1964: A.LAST_MODIFIED_BY, A.OBJECT_NAME, A.TITLE, A.APPLICATION, A.DATABASE, A.DESCRIPTION,
1965: A.KEYWORDS, A.XML, A.APPLICATION_SUBTYPE1, A.COMP_SUBTYPE1, A.COMP_SUBTYPE2,A.COMP_SUBTYPE3, A.TIME_DATE_LAST_ACCESSED,
1966: T1.container_id,T1.aggregate_info
1967: from bism_objects A,
1968: (
1969: /* 3. distinct is required because there may be diamond relationships in the hierarchy
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
1987:
1988: /* now set lastLoaded attribute*/
1989: if traceLastLoaded = '1' then
1990: select sysdate into current_date from dual;
1991: --update bism_objects set TIME_DATE_LAST_ACCESSED = current_date where object_id = oid;
1992: open obj_ids_cursor(cid,myid);
1993: fetch obj_ids_cursor bulk collect into uvs_array, otids_array, ids_array;
1994: if ids_array.COUNT > 0 then
1995: for i in ids_array.FIRST..ids_array.LAST
1994: if ids_array.COUNT > 0 then
1995: for i in ids_array.FIRST..ids_array.LAST
1996: loop
1997: -- update last_loaded time for each
1998: update bism_objects set TIME_DATE_LAST_ACCESSED = current_date where object_id=ids_array(i);
1999: end loop;
2000: end if;
2001: close obj_ids_cursor;
2002: end if;
2016: status number;
2017: begin
2018: ret := bism_core.check_modify_attrs_access(fid, objname, myid, status, callerid);
2019: if ret = 'y' then
2020: update bism_objects set object_name = newobjname ,
2021: time_date_modified = sysdate ,
2022: last_modified_by = myid
2023: where folder_id = fid and user_visible = 'Y' and object_name = objname ;
2024: end if;
2027:
2028: end rename_object;
2029:
2030: function list
2031: (p_fid bism_objects.FOLDER_ID%type,
2032: p_subid bism_subjects.SUBJECT_ID%type)
2033: return myrctype
2034: is
2035: rc myrctype;
2036: begin
2037: begin
2038: open rc for
2039: select object_name,object_type_id
2040: from bism_objects
2041: where folder_id = p_fid and
2042: user_visible = 'Y' and
2043: 'y' = bism_access_control.check_list_access(p_fid,p_subid);
2044: return rc;
2056: function init(p_subname in bism_subjects.subject_name%type)
2057: return bism_subjects.subject_id%type
2058: is
2059: subid bism_subjects.subject_id%type;
2060: oid bism_objects.object_id%type := null;
2061: priv bism_permissions.privilege%type := 0;
2062: begin
2063: /* make sure root folder exists */
2064: begin
2061: priv bism_permissions.privilege%type := 0;
2062: begin
2063: /* make sure root folder exists */
2064: begin
2065: select object_id into oid from bism_objects where folder_id='30' and object_name= 'ROOT' and user_visible = 'Y';
2066: exception
2067: when no_data_found then
2068: raise_application_error(BISM_ERRORCODES.ROOT_NOT_FOUND,'Root folder not found');
2069: end;
2091: return subid;
2092: end init;
2093:
2094: function create_subcontext
2095: (p_tempTimeC bism_objects.time_date_created%type,
2096: p_tempTimeM bism_objects.time_date_modified%type,
2097: p_creator bism_subjects.subject_name%type,
2098: p_modifier bism_subjects.subject_name%type,
2099: p_fid bism_objects.folder_id%type,
2092: end init;
2093:
2094: function create_subcontext
2095: (p_tempTimeC bism_objects.time_date_created%type,
2096: p_tempTimeM bism_objects.time_date_modified%type,
2097: p_creator bism_subjects.subject_name%type,
2098: p_modifier bism_subjects.subject_name%type,
2099: p_fid bism_objects.folder_id%type,
2100: p_subid bism_subjects.subject_id%type,
2095: (p_tempTimeC bism_objects.time_date_created%type,
2096: p_tempTimeM bism_objects.time_date_modified%type,
2097: p_creator bism_subjects.subject_name%type,
2098: p_modifier bism_subjects.subject_name%type,
2099: p_fid bism_objects.folder_id%type,
2100: p_subid bism_subjects.subject_id%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2097: p_creator bism_subjects.subject_name%type,
2098: p_modifier bism_subjects.subject_name%type,
2099: p_fid bism_objects.folder_id%type,
2100: p_subid bism_subjects.subject_id%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2098: p_modifier bism_subjects.subject_name%type,
2099: p_fid bism_objects.folder_id%type,
2100: p_subid bism_subjects.subject_id%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2099: p_fid bism_objects.folder_id%type,
2100: p_subid bism_subjects.subject_id%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2100: p_subid bism_subjects.subject_id%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2101: p_version bism_objects.VERSION%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2102: p_object_name bism_objects.object_name%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2103: p_title bism_objects.title%type,
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2104: p_application bism_objects.application%type,
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2105: p_database bism_objects.database%type,
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2113: is
2106: p_desc bism_objects.description%type,
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2113: is
2114: sub_id bism_subjects.subject_id%type;
2107: p_keywords bism_objects.keywords%type,
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2113: is
2114: sub_id bism_subjects.subject_id%type;
2115: oid bism_objects.object_id%type;
2108: p_appsubtype1 bism_objects.application_subtype1%type,
2109: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2110: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2113: is
2114: sub_id bism_subjects.subject_id%type;
2115: oid bism_objects.object_id%type;
2116: oname bism_objects.object_name%type;
2111: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2112: return bism_objects.object_id%type
2113: is
2114: sub_id bism_subjects.subject_id%type;
2115: oid bism_objects.object_id%type;
2116: oname bism_objects.object_name%type;
2117: fid bism_objects.folder_id%type;
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2112: return bism_objects.object_id%type
2113: is
2114: sub_id bism_subjects.subject_id%type;
2115: oid bism_objects.object_id%type;
2116: oname bism_objects.object_name%type;
2117: fid bism_objects.folder_id%type;
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2113: is
2114: sub_id bism_subjects.subject_id%type;
2115: oid bism_objects.object_id%type;
2116: oname bism_objects.object_name%type;
2117: fid bism_objects.folder_id%type;
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2121: timeM bism_objects.time_date_modified%type := sysdate;
2116: oname bism_objects.object_name%type;
2117: fid bism_objects.folder_id%type;
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2121: timeM bism_objects.time_date_modified%type := sysdate;
2122: tempTimeC bism_objects.time_date_created%type := null;
2123: tempTimeM bism_objects.time_date_modified%type := null;
2124: ret varchar2(1):='n';
2117: fid bism_objects.folder_id%type;
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2121: timeM bism_objects.time_date_modified%type := sysdate;
2122: tempTimeC bism_objects.time_date_created%type := null;
2123: tempTimeM bism_objects.time_date_modified%type := null;
2124: ret varchar2(1):='n';
2125: begin
2118: created_subid bism_subjects.subject_id%type;
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2121: timeM bism_objects.time_date_modified%type := sysdate;
2122: tempTimeC bism_objects.time_date_created%type := null;
2123: tempTimeM bism_objects.time_date_modified%type := null;
2124: ret varchar2(1):='n';
2125: begin
2126: begin
2119: modified_subid bism_subjects.subject_id%type;
2120: timeC bism_objects.time_date_created%type := sysdate;
2121: timeM bism_objects.time_date_modified%type := sysdate;
2122: tempTimeC bism_objects.time_date_created%type := null;
2123: tempTimeM bism_objects.time_date_modified%type := null;
2124: ret varchar2(1):='n';
2125: begin
2126: begin
2127: tempTimeC := p_tempTimeC;
2150: else
2151: timeM := sysdate;
2152: end if;
2153:
2154: insert into BISM_OBJECTS
2155: (USER_VISIBLE, OBJECT_TYPE_ID,VERSION, TIME_DATE_CREATED, TIME_DATE_MODIFIED, OBJECT_ID, CONTAINER_ID, FOLDER_ID, CREATED_BY,
2156: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION, KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
2157: COMP_SUBTYPE2, COMP_SUBTYPE3, TIME_DATE_LAST_ACCESSED) values ('Y',0100,p_version,timeC,timeM,bism_utils.get_guid,null,
2158: p_fid,created_subid,modified_subid,p_object_name,p_title,p_application,p_database,p_desc,p_keywords,null,p_appsubtype1,
2164: return oid;
2165: end create_subcontext;
2166:
2167: function create_subcontext_30
2168: (p_tempTimeC bism_objects.time_date_created%type,
2169: p_tempTimeM bism_objects.time_date_modified%type,
2170: p_oid bism_objects.object_id%type,
2171: p_creator bism_subjects.subject_name%type,
2172: p_modifier bism_subjects.subject_name%type,
2165: end create_subcontext;
2166:
2167: function create_subcontext_30
2168: (p_tempTimeC bism_objects.time_date_created%type,
2169: p_tempTimeM bism_objects.time_date_modified%type,
2170: p_oid bism_objects.object_id%type,
2171: p_creator bism_subjects.subject_name%type,
2172: p_modifier bism_subjects.subject_name%type,
2173: p_fid bism_objects.folder_id%type,
2166:
2167: function create_subcontext_30
2168: (p_tempTimeC bism_objects.time_date_created%type,
2169: p_tempTimeM bism_objects.time_date_modified%type,
2170: p_oid bism_objects.object_id%type,
2171: p_creator bism_subjects.subject_name%type,
2172: p_modifier bism_subjects.subject_name%type,
2173: p_fid bism_objects.folder_id%type,
2174: p_subid bism_subjects.subject_id%type,
2169: p_tempTimeM bism_objects.time_date_modified%type,
2170: p_oid bism_objects.object_id%type,
2171: p_creator bism_subjects.subject_name%type,
2172: p_modifier bism_subjects.subject_name%type,
2173: p_fid bism_objects.folder_id%type,
2174: p_subid bism_subjects.subject_id%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2171: p_creator bism_subjects.subject_name%type,
2172: p_modifier bism_subjects.subject_name%type,
2173: p_fid bism_objects.folder_id%type,
2174: p_subid bism_subjects.subject_id%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2172: p_modifier bism_subjects.subject_name%type,
2173: p_fid bism_objects.folder_id%type,
2174: p_subid bism_subjects.subject_id%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2173: p_fid bism_objects.folder_id%type,
2174: p_subid bism_subjects.subject_id%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2174: p_subid bism_subjects.subject_id%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2175: p_version bism_objects.VERSION%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2176: p_object_name bism_objects.object_name%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2177: p_title bism_objects.title%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2178: p_application bism_objects.application%type,
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2186: p_extAttrs_Clob CLOB)
2179: p_database bism_objects.database%type,
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2186: p_extAttrs_Clob CLOB)
2187: return bism_objects.object_id%type
2180: p_desc bism_objects.description%type,
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2186: p_extAttrs_Clob CLOB)
2187: return bism_objects.object_id%type
2188: is
2181: p_keywords bism_objects.keywords%type,
2182: p_appsubtype1 bism_objects.application_subtype1%type,
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2186: p_extAttrs_Clob CLOB)
2187: return bism_objects.object_id%type
2188: is
2189: sub_id bism_subjects.subject_id%type;
2183: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2184: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2185: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2186: p_extAttrs_Clob CLOB)
2187: return bism_objects.object_id%type
2188: is
2189: sub_id bism_subjects.subject_id%type;
2190: oid bism_objects.object_id%type;
2191: oname bism_objects.object_name%type;
2186: p_extAttrs_Clob CLOB)
2187: return bism_objects.object_id%type
2188: is
2189: sub_id bism_subjects.subject_id%type;
2190: oid bism_objects.object_id%type;
2191: oname bism_objects.object_name%type;
2192: fid bism_objects.folder_id%type;
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2187: return bism_objects.object_id%type
2188: is
2189: sub_id bism_subjects.subject_id%type;
2190: oid bism_objects.object_id%type;
2191: oname bism_objects.object_name%type;
2192: fid bism_objects.folder_id%type;
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2188: is
2189: sub_id bism_subjects.subject_id%type;
2190: oid bism_objects.object_id%type;
2191: oname bism_objects.object_name%type;
2192: fid bism_objects.folder_id%type;
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2191: oname bism_objects.object_name%type;
2192: fid bism_objects.folder_id%type;
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2197: tempTimeC bism_objects.time_date_created%type := null;
2198: tempTimeM bism_objects.time_date_modified%type := null;
2199: p_extAttrs bism_objects.extensible_attributes%type := null;
2192: fid bism_objects.folder_id%type;
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2197: tempTimeC bism_objects.time_date_created%type := null;
2198: tempTimeM bism_objects.time_date_modified%type := null;
2199: p_extAttrs bism_objects.extensible_attributes%type := null;
2200:
2193: created_subid bism_subjects.subject_id%type;
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2197: tempTimeC bism_objects.time_date_created%type := null;
2198: tempTimeM bism_objects.time_date_modified%type := null;
2199: p_extAttrs bism_objects.extensible_attributes%type := null;
2200:
2201: ret varchar2(1):='n';
2194: modified_subid bism_subjects.subject_id%type;
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2197: tempTimeC bism_objects.time_date_created%type := null;
2198: tempTimeM bism_objects.time_date_modified%type := null;
2199: p_extAttrs bism_objects.extensible_attributes%type := null;
2200:
2201: ret varchar2(1):='n';
2202: begin
2195: timeC bism_objects.time_date_created%type := sysdate;
2196: timeM bism_objects.time_date_modified%type := sysdate;
2197: tempTimeC bism_objects.time_date_created%type := null;
2198: tempTimeM bism_objects.time_date_modified%type := null;
2199: p_extAttrs bism_objects.extensible_attributes%type := null;
2200:
2201: ret varchar2(1):='n';
2202: begin
2203: begin
2239: -- convert CLOB representation of extensible attributes into XMLType representation
2240: p_extAttrs := sys.xmltype.createXML(p_extAttrs_Clob);
2241: end if;
2242:
2243: insert into BISM_OBJECTS
2244: (USER_VISIBLE, OBJECT_TYPE_ID,VERSION, TIME_DATE_CREATED, TIME_DATE_MODIFIED, OBJECT_ID, CONTAINER_ID, FOLDER_ID, CREATED_BY,
2245: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION, KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
2246: COMP_SUBTYPE2, COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED) values ('Y',0100,p_version,timeC,timeM,
2247: oid,null,p_fid,created_subid,modified_subid,p_object_name,p_title,p_application,p_database,p_desc,p_keywords,
2256: procedure bind
2257: (p_creator bism_subjects.SUBJECT_NAME%type,
2258: p_modifier bism_subjects.SUBJECT_NAME%type,
2259: p_subject_id bism_subjects.SUBJECT_ID%type,
2260: p_visible bism_objects.USER_VISIBLE%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2257: (p_creator bism_subjects.SUBJECT_NAME%type,
2258: p_modifier bism_subjects.SUBJECT_NAME%type,
2259: p_subject_id bism_subjects.SUBJECT_ID%type,
2260: p_visible bism_objects.USER_VISIBLE%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2258: p_modifier bism_subjects.SUBJECT_NAME%type,
2259: p_subject_id bism_subjects.SUBJECT_ID%type,
2260: p_visible bism_objects.USER_VISIBLE%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2259: p_subject_id bism_subjects.SUBJECT_ID%type,
2260: p_visible bism_objects.USER_VISIBLE%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2260: p_visible bism_objects.USER_VISIBLE%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2261: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2262: p_version bism_objects.VERSION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2263: p_time_created bism_objects.TIME_DATE_CREATED%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2264: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2265: p_oid bism_objects.OBJECT_ID%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2266: p_container_id bism_objects.CONTAINER_ID%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
2267: p_fid bism_objects.FOLDER_ID%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
2275: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2268: p_obj_name bism_objects.OBJECT_NAME%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
2275: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2276: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2269: p_title bism_objects.TITLE%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
2275: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2276: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2277: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2270: p_application bism_objects.APPLICATION%type,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
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,
2271: p_database bism_objects.DATABASE%type,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
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,
2272: p_desc bism_objects.DESCRIPTION%type,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
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,
2273: p_keywords bism_objects.KEYWORDS%type,
2274: p_xml bism_objects.XML%type,
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,
2274: p_xml bism_objects.XML%type,
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
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
2285: ret varchar2(1);
2286: created_subid bism_subjects.subject_id%type;
2284: is
2285: ret varchar2(1);
2286: created_subid bism_subjects.subject_id%type;
2287: modified_subid bism_subjects.subject_id%type;
2288: p_ext_attrs bism_objects.extensible_attributes%type := null;
2289: begin
2290: begin
2291: select subject_id into created_subid from bism_subjects where subject_name = p_creator and subject_type ='u';
2292: if p_creator <> p_modifier then
2309: -- convert CLOB representation of extensible attributes into XMLType representation
2310: p_ext_attrs := sys.xmltype.createXML(p_ext_attrs_clob);
2311: end if;
2312:
2313: insert into BISM_OBJECTS (USER_VISIBLE,OBJECT_TYPE_ID,VERSION,TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,
2314: CREATED_BY,LAST_MODIFIED_BY,OBJECT_NAME,TITLE,APPLICATION,DATABASE,DESCRIPTION,KEYWORDS,XML,
2315: APPLICATION_SUBTYPE1,COMP_SUBTYPE1,COMP_SUBTYPE2,COMP_SUBTYPE3,EXTENSIBLE_ATTRIBUTES,TIME_DATE_LAST_ACCESSED)
2316: values
2317: (p_visible,p_obj_type_id,p_version,p_time_created,p_time_modified,p_oid,p_container_id,p_fid,created_subid,modified_subid,p_obj_name,
2329: procedure bind
2330: (p_creator bism_subjects.SUBJECT_NAME%type,
2331: p_modifier bism_subjects.SUBJECT_NAME%type,
2332: p_subject_id bism_subjects.SUBJECT_ID%type,
2333: p_visible bism_objects.USER_VISIBLE%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2330: (p_creator bism_subjects.SUBJECT_NAME%type,
2331: p_modifier bism_subjects.SUBJECT_NAME%type,
2332: p_subject_id bism_subjects.SUBJECT_ID%type,
2333: p_visible bism_objects.USER_VISIBLE%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2331: p_modifier bism_subjects.SUBJECT_NAME%type,
2332: p_subject_id bism_subjects.SUBJECT_ID%type,
2333: p_visible bism_objects.USER_VISIBLE%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2332: p_subject_id bism_subjects.SUBJECT_ID%type,
2333: p_visible bism_objects.USER_VISIBLE%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2333: p_visible bism_objects.USER_VISIBLE%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2334: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2335: p_version bism_objects.VERSION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2336: p_time_created bism_objects.TIME_DATE_CREATED%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2337: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2338: p_oid bism_objects.OBJECT_ID%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2339: p_container_id bism_objects.CONTAINER_ID%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
2340: p_fid bism_objects.FOLDER_ID%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
2348: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2341: p_obj_name bism_objects.OBJECT_NAME%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
2348: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2349: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2342: p_title bism_objects.TITLE%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
2348: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2349: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2350: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2343: p_application bism_objects.APPLICATION%type,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
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,
2344: p_database bism_objects.DATABASE%type,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
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,
2345: p_desc bism_objects.DESCRIPTION%type,
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
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
2346: p_keywords bism_objects.KEYWORDS%type,
2347: p_xml bism_objects.XML%type,
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: )
2347: p_xml bism_objects.XML%type,
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
2374: ret := bism_access_control.check_ins_access(p_fid,p_subject_id);
2375: end;
2376:
2377: if ret = 'y' then
2378: insert into BISM_OBJECTS (USER_VISIBLE,OBJECT_TYPE_ID,VERSION,TIME_DATE_CREATED,TIME_DATE_MODIFIED,OBJECT_ID,CONTAINER_ID,FOLDER_ID,
2379: CREATED_BY,LAST_MODIFIED_BY,OBJECT_NAME,TITLE,APPLICATION,DATABASE,DESCRIPTION,KEYWORDS,XML,
2380: APPLICATION_SUBTYPE1,COMP_SUBTYPE1,COMP_SUBTYPE2,COMP_SUBTYPE3) values (p_visible,p_obj_type_id,p_version,
2381: p_time_created,p_time_modified,p_oid,p_container_id,p_fid,created_subid,modified_subid,p_obj_name,p_title,
2382: p_application,p_database,p_desc,p_keywords,p_xml,p_appsubtype1,p_compsubtype1,p_compsubtype2,p_compsubtype3);
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,
2402: p_subid bism_subjects.SUBJECT_ID%type)
2403: return myrctype
2404: is
2405: rc myrctype;
2403: return myrctype
2404: is
2405: rc myrctype;
2406: begin
2407: open rc for select object_name,object_type_id,object_id from bism_objects where folder_id = p_fid and user_visible = 'Y' and 'y' = bism_access_control.check_list_access(p_fid,p_subid);
2408: return rc;
2409: end list_bindings;
2410:
2411: procedure rebind
2411: procedure rebind
2412: (p_creator bism_subjects.SUBJECT_NAME%type,
2413: p_modifier bism_subjects.SUBJECT_NAME%type,
2414: p_subject_id bism_subjects.SUBJECT_ID%type,
2415: p_visible bism_objects.USER_VISIBLE%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2412: (p_creator bism_subjects.SUBJECT_NAME%type,
2413: p_modifier bism_subjects.SUBJECT_NAME%type,
2414: p_subject_id bism_subjects.SUBJECT_ID%type,
2415: p_visible bism_objects.USER_VISIBLE%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2413: p_modifier bism_subjects.SUBJECT_NAME%type,
2414: p_subject_id bism_subjects.SUBJECT_ID%type,
2415: p_visible bism_objects.USER_VISIBLE%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2414: p_subject_id bism_subjects.SUBJECT_ID%type,
2415: p_visible bism_objects.USER_VISIBLE%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2415: p_visible bism_objects.USER_VISIBLE%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2416: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2417: p_version bism_objects.VERSION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2418: p_time_created bism_objects.TIME_DATE_CREATED%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2419: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2420: p_oid bism_objects.OBJECT_ID%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2421: p_container_id bism_objects.CONTAINER_ID%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2422: p_fid bism_objects.FOLDER_ID%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2423: p_obj_name bism_objects.OBJECT_NAME%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2424: p_title bism_objects.TITLE%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2432: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2425: p_application bism_objects.APPLICATION%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2432: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2433: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2426: p_database bism_objects.DATABASE%type,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2432: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2433: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type,
2434: p_ext_attrs_clob CLOB,
2427: p_desc bism_objects.DESCRIPTION%type,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%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,
2428: p_keywords bism_objects.KEYWORDS%type,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%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,
2429: p_xml bism_objects.XML%type,
2430: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%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)
2431: p_compsubtype1 bism_objects.COMP_SUBTYPE1%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);
2438: is
2439: ret varchar2(1);
2440: created_subid bism_subjects.subject_id%type;
2441: modified_subid bism_subjects.subject_id%type;
2442: p_ext_attrs bism_objects.extensible_attributes%type := null;
2443: begin
2444: begin
2445: select subject_id into created_subid from bism_subjects where subject_name = p_creator and subject_type ='u';
2446: select subject_id into modified_subid from bism_subjects where subject_name = p_modifier and subject_type ='u';
2460: -- convert CLOB representation of extensible attributes into XMLType representation
2461: p_ext_attrs := sys.xmltype.createXML(p_ext_attrs_clob);
2462: end if;
2463:
2464: update bism_objects
2465: set USER_VISIBLE=p_visible,
2466: OBJECT_TYPE_ID=p_obj_type_id,
2467: VERSION=p_version,
2468: TIME_DATE_CREATED=p_time_created,
2494: -- convert CLOB representation of extensible attributes into XMLType representation
2495: p_ext_attrs := sys.xmltype.createXML(p_ext_attrs_clob);
2496: end if;
2497:
2498: insert into bism_objects (USER_VISIBLE, OBJECT_TYPE_ID,VERSION, TIME_DATE_CREATED, TIME_DATE_MODIFIED, OBJECT_ID, CONTAINER_ID, FOLDER_ID, CREATED_BY,
2499: LAST_MODIFIED_BY, OBJECT_NAME, TITLE, APPLICATION, DATABASE, DESCRIPTION, KEYWORDS, XML, APPLICATION_SUBTYPE1, COMP_SUBTYPE1,
2500: COMP_SUBTYPE2, COMP_SUBTYPE3, EXTENSIBLE_ATTRIBUTES, TIME_DATE_LAST_ACCESSED)
2501: values
2502: (
2513: procedure rebind
2514: (p_creator bism_subjects.SUBJECT_NAME%type,
2515: p_modifier bism_subjects.SUBJECT_NAME%type,
2516: p_subject_id bism_subjects.SUBJECT_ID%type,
2517: p_visible bism_objects.USER_VISIBLE%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2514: (p_creator bism_subjects.SUBJECT_NAME%type,
2515: p_modifier bism_subjects.SUBJECT_NAME%type,
2516: p_subject_id bism_subjects.SUBJECT_ID%type,
2517: p_visible bism_objects.USER_VISIBLE%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2515: p_modifier bism_subjects.SUBJECT_NAME%type,
2516: p_subject_id bism_subjects.SUBJECT_ID%type,
2517: p_visible bism_objects.USER_VISIBLE%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2516: p_subject_id bism_subjects.SUBJECT_ID%type,
2517: p_visible bism_objects.USER_VISIBLE%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2517: p_visible bism_objects.USER_VISIBLE%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2518: p_obj_type_id bism_objects.OBJECT_TYPE_ID%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2519: p_version bism_objects.VERSION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2520: p_time_created bism_objects.TIME_DATE_CREATED%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2521: p_time_modified bism_objects.TIME_DATE_MODIFIED%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2522: p_oid bism_objects.OBJECT_ID%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2523: p_container_id bism_objects.CONTAINER_ID%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2524: p_fid bism_objects.FOLDER_ID%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2525: p_obj_name bism_objects.OBJECT_NAME%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2526: p_title bism_objects.TITLE%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2527: p_application bism_objects.APPLICATION%type,
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2535: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2528: p_database bism_objects.DATABASE%type,
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2535: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2536: is
2529: p_desc bism_objects.DESCRIPTION%type,
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2535: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2536: is
2537: ret varchar2(1);
2530: p_keywords bism_objects.KEYWORDS%type,
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2535: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2536: is
2537: ret varchar2(1);
2538: created_subid bism_subjects.subject_id%type;
2531: p_xml bism_objects.XML%type,
2532: p_appsubtype1 bism_objects.APPLICATION_SUBTYPE1%type,
2533: p_compsubtype1 bism_objects.COMP_SUBTYPE1%type,
2534: p_compsubtype2 bism_objects.COMP_SUBTYPE2%type,
2535: p_compsubtype3 bism_objects.COMP_SUBTYPE3%type)
2536: is
2537: ret varchar2(1);
2538: created_subid bism_subjects.subject_id%type;
2539: modified_subid bism_subjects.subject_id%type;
2550: -- object level security, rebind requires WRITE privilege on the object ONLY
2551: -- nothing to do with parent folder
2552: ret := bism_access_control.check_upd_access(null,p_oid,'n',p_subject_id);
2553: if ret = 'y' then
2554: update bism_objects set USER_VISIBLE=p_visible,OBJECT_TYPE_ID=p_obj_type_id,VERSION=p_version,TIME_DATE_CREATED=p_time_created,
2555: TIME_DATE_MODIFIED=p_time_modified,OBJECT_ID=p_oid,CONTAINER_ID=p_container_id,FOLDER_ID=p_fid,
2556: CREATED_BY=created_subid,LAST_MODIFIED_BY=modified_subid,OBJECT_NAME=p_obj_name,TITLE=p_title,
2557: APPLICATION=p_application,DATABASE=p_database,DESCRIPTION=p_desc,KEYWORDS=p_keywords,XML=p_xml,
2558: APPLICATION_SUBTYPE1=p_appsubtype1,COMP_SUBTYPE1=p_compsubtype1,COMP_SUBTYPE2=p_compsubtype2,
2565: -- new methods for object level security feature
2566: function add_entries(oid in raw,acllist in out nocopy bism_acl_obj_t,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2)
2567: return bism_acl_obj_t
2568: is
2569: newguid bism_objects.object_id%type:= null;
2570: username bism_subjects.subject_name%type;
2571: objname bism_objects.object_name%type;
2572: priv number(2);
2573: grantorpriv number(2);
2567: return bism_acl_obj_t
2568: is
2569: newguid bism_objects.object_id%type:= null;
2570: username bism_subjects.subject_name%type;
2571: objname bism_objects.object_name%type;
2572: priv number(2);
2573: grantorpriv number(2);
2574: newusers bism_acl_obj_t := bism_acl_obj_t();
2575: dummy bism_acl_obj_t := bism_acl_obj_t();
2583:
2584: if grantorpriv is null then
2585: begin
2586: -- see if object exists
2587: select object_name into objname from bism_objects where object_id = oid;
2588: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
2589: exception
2590: when no_data_found then
2591: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
2637: -- new functionality (ccchow)
2638: -- cascading acl to all existing objects within the folder
2639: if cascade_to_objs = 'y' or cascade_to_objs = 'Y' then
2640: -- first find all the objects within the folder
2641: for i in (select object_id, object_type_id from bism_objects where folder_id = oid and user_visible = 'Y')
2642: loop
2643: -- remove all existing entries
2644: for j in 1..acllist.count
2645: loop
2668: end loop;
2669: end if;
2670:
2671: if cascade_to_subfolders = 'y' or cascade_to_subfolders = 'Y' then
2672: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y' )
2673: loop
2674: -- ignore the return value dummy because it should be null
2675: -- we only create new user in first level frame
2676: -- (ccchow) always cascade to existing objects in subfolders as well, as in NT
2683:
2684: procedure add_entries_30(oid in raw,acllist in CLOB,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2, aclseparator in varchar2)
2685: -- return bism_acl_obj_t
2686: is
2687: newguid bism_objects.object_id%type:= null;
2688: username bism_subjects.subject_name%type;
2689: objname bism_objects.object_name%type;
2690: priv number(2);
2691: grantorpriv number(2);
2685: -- return bism_acl_obj_t
2686: is
2687: newguid bism_objects.object_id%type:= null;
2688: username bism_subjects.subject_name%type;
2689: objname bism_objects.object_name%type;
2690: priv number(2);
2691: grantorpriv number(2);
2692: sid bism_subjects.SUBJECT_ID%TYPE;
2693: startpos INTEGER := 1;
2703:
2704: if grantorpriv is null then
2705: begin
2706: -- see if object exists
2707: select object_name into objname from bism_objects where object_id = oid;
2708: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
2709: exception
2710: when no_data_found then
2711: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
2752: -- new functionality (ccchow)
2753: -- cascading acl to all existing objects within the folder
2754: if cascade_to_objs = 'Y' or cascade_to_objs = 'y' then
2755: -- first find all the objects within the folder
2756: for i in (select object_id, object_type_id from bism_objects where folder_id = oid and user_visible = 'Y')
2757: loop
2758: -- remove all existing entries
2759: if sid is not null then
2760: delete from bism_permissions where object_id = i.object_id and subject_id = sid;
2785: <
2786:
2787: -- do it for folder only
2788: if (isfolder = 'Y' or isfolder = 'y') and (cascade_to_subfolders = 'Y' or cascade_to_subfolders = 'y') then
2789: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y' )
2790: loop
2791: add_entries_30(i.object_id,acllist,myid,cascade_to_subfolders,'Y','N','Y',aclseparator);
2792: end loop;
2793: end if;
2797: function remove_entries(oid in raw,acllist in out nocopy bism_acl_obj_t,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2)
2798: return bism_chararray_t
2799: is
2800: username bism_subjects.subject_name%type;
2801: objname bism_objects.object_name%type;
2802: priv number(2);
2803: grantorpriv number(2);
2804: errormsgs bism_chararray_t := bism_chararray_t();
2805: childerrormsgs bism_chararray_t := bism_chararray_t();
2806: errors_occured boolean;
2807: sid raw(16);
2808:
2809: -- used for cascading acl to objects
2810: type oid_t is table of bism_objects.object_id%type;
2811: oid_var oid_t := oid_t();
2812: begin
2813: if acllist is null then
2814: return null;
2818:
2819: if grantorpriv is null then
2820: begin
2821: -- see if object exists
2822: select object_name into objname from bism_objects where object_id = oid;
2823: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
2824: exception
2825: when no_data_found then
2826: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
2862: -- new functionality (ccchow)
2863: -- cascading acl to all existing objects within the folder
2864: if cascade_to_objs = 'Y' or cascade_to_objs = 'y' then
2865: -- first find all the objects within the folder
2866: select object_id bulk collect into oid_var from bism_objects where folder_id = oid and user_visible = 'Y';
2867:
2868: if oid_var.COUNT > 0 then
2869: for i in oid_var.FIRST..oid_var.LAST
2870: loop
2879: end if;
2880: end if;
2881:
2882: if cascade_to_subfolders = 'Y' or cascade_to_subfolders = 'y' then
2883: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y')
2884: loop
2885: -- ignore the return value childerrormsgs because it should be null
2886: -- we check for errors only when it is a top level folder and that means
2887: -- errormsgs in the top level frame should capture any errors
2897: --return bism_chararray_t
2898: return varchar2
2899: is
2900: username bism_subjects.subject_name%type;
2901: objname bism_objects.object_name%type;
2902: priv number(2);
2903: grantorpriv number(2);
2904: errormsgs varchar2(32767) := '';
2905: childerrormsgs varchar2(32767) := '';
2911: usrnm BISM_SUBJECTS.SUBJECT_NAME%TYPE;
2912: usrpriv BISM_PERMISSIONS.PRIVILEGE%TYPE;
2913:
2914: -- used for cascading acl to objects
2915: type oid_t is table of bism_objects.object_id%type;
2916: oid_var oid_t := oid_t();
2917: begin
2918: if (acllist is null) or (DBMS_LOB.getlength(acllist) = 0) then
2919: return null;
2923:
2924: if grantorpriv is null then
2925: begin
2926: -- see if object exists
2927: select object_name into objname from bism_objects where object_id = oid;
2928: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
2929: exception
2930: when no_data_found then
2931: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
2965: -- new functionality (ccchow)
2966: -- cascading acl to all existing objects within the folder
2967: if cascade_to_objs = 'Y' or cascade_to_objs = 'y' then
2968: -- first find all the objects within the folder
2969: select object_id bulk collect into oid_var from bism_objects where folder_id = oid and user_visible = 'Y';
2970:
2971: if oid_var.COUNT > 0 then
2972: for i in oid_var.FIRST..oid_var.LAST
2973: loop
2989: <
2990:
2991: -- do it for folder only
2992: if (isfolder = 'Y' or isfolder = 'y') and (cascade_to_subfolders = 'Y' or cascade_to_subfolders = 'y') then
2993: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y')
2994: loop
2995: -- ignore the return value childerrormsgs because it should be null
2996: -- we check for errors only when it is a top level folder and that means
2997: -- errormsgs in the top level frame should capture any errors
3007: -- basically, same as add_entires except replaces every acl
3008: function set_entries(oid in raw,acllist in out nocopy bism_acl_obj_t,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2)
3009: return bism_acl_obj_t
3010: is
3011: newguid bism_objects.object_id%type:= null;
3012: objname bism_objects.object_name%type;
3013: username bism_subjects.subject_name%type;
3014: priv number(2);
3015: grantorpriv number(2);
3008: function set_entries(oid in raw,acllist in out nocopy bism_acl_obj_t,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2)
3009: return bism_acl_obj_t
3010: is
3011: newguid bism_objects.object_id%type:= null;
3012: objname bism_objects.object_name%type;
3013: username bism_subjects.subject_name%type;
3014: priv number(2);
3015: grantorpriv number(2);
3016: newusers bism_acl_obj_t := bism_acl_obj_t();
3022:
3023: if grantorpriv is null then
3024: begin
3025: -- see if object exists
3026: select object_name into objname from bism_objects where object_id = oid;
3027: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
3028: exception
3029: when no_data_found then
3030: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
3073: -- new functionality (ccchow)
3074: -- cascading acl to all existing objects within the folder
3075: if cascade_to_objs = 'Y' or cascade_to_objs = 'y' then
3076: -- first find all the objects within the folder
3077: for i in (select object_id, object_type_id from bism_objects where folder_id = oid and user_visible = 'Y')
3078: loop
3079: -- remove all existing entries
3080: delete from bism_permissions where object_id = i.object_id and subject_id <> myid;
3081:
3100: end loop;
3101: end if;
3102:
3103: if cascade_to_subfolders = 'Y' or cascade_to_subfolders = 'y' then
3104: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y' )
3105: loop
3106: -- ignore the return value dummy because it should be null
3107: -- we only create new user in first level frame
3108: -- (ccchow) always cascade to existing objects in subfolders as well, as in NT
3117: -- new function (ccchow)
3118: -- basically, same as add_entires except replaces every acl
3119: procedure set_entries_30(oid in raw,acllist in out nocopy CLOB,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2, aclseparator in varchar2)
3120: is
3121: newguid bism_objects.object_id%type:= null;
3122: objname bism_objects.object_name%type;
3123: username bism_subjects.subject_name%type;
3124: priv number(2);
3125: grantorpriv number(2);
3118: -- basically, same as add_entires except replaces every acl
3119: procedure set_entries_30(oid in raw,acllist in out nocopy CLOB,myid in raw,cascade_to_subfolders in varchar2,cascade_to_objs in varchar2,topfolder in varchar2,isfolder in varchar2, aclseparator in varchar2)
3120: is
3121: newguid bism_objects.object_id%type:= null;
3122: objname bism_objects.object_name%type;
3123: username bism_subjects.subject_name%type;
3124: priv number(2);
3125: grantorpriv number(2);
3126: sid bism_subjects.SUBJECT_ID%TYPE;
3140:
3141: if grantorpriv is null then
3142: begin
3143: -- see if object exists
3144: select object_name into objname from bism_objects where object_id = oid;
3145: raise_application_error(BISM_ERRORCODES.NO_PRIVILEGES,'Grantor has no privileges for folder');
3146: exception
3147: when no_data_found then
3148: raise_application_error(BISM_ERRORCODES.OBJECT_NOT_FOUND,'Object not found');
3197: -- new functionality (ccchow)
3198: -- cascading acl to all existing objects within the folder
3199: if cascade_to_objs = 'Y' or cascade_to_objs = 'y' then
3200: -- first find all the objects within the folder
3201: for i in (select object_id, object_type_id from bism_objects where folder_id = oid and user_visible = 'Y')
3202: loop
3203: -- remove all existing entries
3204: if firstTime = true then
3205: delete from bism_permissions where object_id = i.object_id and subject_id <> myid;
3233: <
3234:
3235: -- do it for folder only
3236: if (isfolder = 'Y' or isfolder = 'y') and (cascade_to_subfolders = 'Y' or cascade_to_subfolders = 'y') then
3237: for i in (select object_id from bism_objects where folder_id = oid and object_type_id = 100 and user_visible='Y' )
3238: loop
3239: set_entries_30(i.object_id,acllist,myid,cascade_to_subfolders,cascade_to_objs,'N','Y',aclseparator);
3240: -- set_entries_30(i.object_id,acllist,myid,cascade_to_subfolders,'Y','N','Y',aclseparator);
3241: end loop;
3250: select nvl(max(privilege),0) into priv from bism_permissions where object_id = oid and subject_id in (select group_id from bism_groups where user_id = myid);
3251: return priv;
3252: end get_privilege;
3253:
3254: function list_dependents(p_fid bism_objects.FOLDER_ID%type, p_objname varchar2, p_myid raw)
3255: return myrctype
3256: is
3257: v_rc myrctype;
3258: begin
3259: open v_rc for
3260: with
3261: visible_table as
3262: ( -- find all objects that contain the object we are interested in.
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
3260: with
3261: visible_table as
3262: ( -- find all objects that contain the object we are interested in.
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
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
3272: folder_id = p_fid
3273: and
3274: object_name = p_objname
3276: )
3277: and container_id <> '30'
3278: )
3279: )
3280: select /*+ INDEX(BISM_OBJECTS) */ bism_core.get_object_full_name(object_id), object_type_id
3281: from bism_objects
3282: where
3283: object_id in ( select object_id from visible_table where user_visible = 'Y' )
3284: union
3277: and container_id <> '30'
3278: )
3279: )
3280: select /*+ INDEX(BISM_OBJECTS) */ bism_core.get_object_full_name(object_id), object_type_id
3281: from bism_objects
3282: where
3283: object_id in ( select object_id from visible_table where user_visible = 'Y' )
3284: union
3285: select /*+ INDEX(BISM_OBJECTS) */ bism_core.get_object_full_name(object_id), object_type_id
3281: from bism_objects
3282: where
3283: object_id in ( select object_id from visible_table where user_visible = 'Y' )
3284: union
3285: select /*+ INDEX(BISM_OBJECTS) */ bism_core.get_object_full_name(object_id), object_type_id
3286: from bism_objects
3287: where object_id
3288: in
3289: (
3282: where
3283: object_id in ( select object_id from visible_table where user_visible = 'Y' )
3284: union
3285: select /*+ INDEX(BISM_OBJECTS) */ bism_core.get_object_full_name(object_id), object_type_id
3286: from bism_objects
3287: where object_id
3288: in
3289: (
3290: select distinct object_id from bism_objects c
3286: from bism_objects
3287: where object_id
3288: in
3289: (
3290: select distinct object_id from bism_objects c
3291: start with object_id
3292: in ( select object_id from visible_table where user_visible = 'N' )
3293: connect by prior container_id = object_id
3294: )
3299: procedure update_attribute(a_fid raw,a_obj_name varchar2,a_attr_name varchar2, a_attr_val varchar2, a_sub_id raw)
3300: is
3301: ret varchar2(1) := 'n';
3302: status number;
3303: v_uv bism_objects.user_visible%type := 'Y';
3304: created_subid raw(16) := null;
3305: modified_subid raw(16) := null;
3306: begin
3307:
3318: begin
3319: select subject_id into created_subid from bism_subjects
3320: where
3321: subject_name = a_attr_val and subject_type ='u';
3322: EXECUTE IMMEDIATE 'update bism_objects set created_by = :1 where folder_id = :2 and user_visible = :3 and object_name = :4 '
3323: using created_subid,a_fid, v_uv , a_obj_name;
3324: exception
3325: when no_data_found then
3326: raise_application_error(-20503,'User not found');
3331: begin
3332: select subject_id into modified_subid from bism_subjects
3333: where
3334: subject_name = a_attr_val and subject_type ='u';
3335: EXECUTE IMMEDIATE 'update bism_objects set last_modified_by = :1
3336: where folder_id = :2 and user_visible = :3 and object_name = :4'
3337: using modified_subid, a_fid, v_uv, a_obj_name;
3338: exception
3339: when no_data_found then
3340: raise_application_error(-20503,'User not found');
3341: end;
3342: else
3343: -- use current user id
3344: EXECUTE IMMEDIATE 'update bism_objects set last_modified_by = :1
3345: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3346: using a_sub_id,a_fid,v_uv,a_obj_name;
3347: end if;
3348:
3348:
3349: else
3350:
3351: -- if it is not created_by or last_modified_by, issue the update command
3352: EXECUTE IMMEDIATE 'update bism_objects set '|| a_attr_name||' = :1
3353: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3354: using a_attr_val,a_fid,v_uv,a_obj_name;
3355: end if;
3356: end if;
3361: is
3362: ret varchar2(1) := 'n';
3363: status number;
3364: b_var char(1);
3365: v_uv bism_objects.user_visible%type:='Y';
3366: created_subid raw(16) := null;
3367: modified_subid raw(16) := null;
3368: begin
3369:
3375: if ret = 'y' then
3376: begin
3377: if a_attr_val is not null then
3378: if a_attr_name = 'time_date_created' then
3379: EXECUTE IMMEDIATE 'update bism_objects set time_date_created = :1
3380: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3381: using a_attr_val,a_fid,v_uv,a_obj_name;
3382: elsif a_attr_name = 'time_date_modified' then
3383: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3379: EXECUTE IMMEDIATE 'update bism_objects set time_date_created = :1
3380: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3381: using a_attr_val,a_fid,v_uv,a_obj_name;
3382: elsif a_attr_name = 'time_date_modified' then
3383: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3384: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3385: using a_attr_val,a_fid,v_uv,a_obj_name;
3386: elsif a_attr_name = 'time_date_last_accessed' then
3387: EXECUTE IMMEDIATE 'update bism_objects set time_date_last_accessed = :1
3383: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3384: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3385: using a_attr_val,a_fid,v_uv,a_obj_name;
3386: elsif a_attr_name = 'time_date_last_accessed' then
3387: EXECUTE IMMEDIATE 'update bism_objects set time_date_last_accessed = :1
3388: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3389: using a_attr_val,a_fid,v_uv,a_obj_name;
3390: end if;
3391: else
3389: using a_attr_val,a_fid,v_uv,a_obj_name;
3390: end if;
3391: else
3392: if a_attr_name = 'time_date_created' then
3393: EXECUTE IMMEDIATE 'update bism_objects set time_date_created = :1
3394: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3395: using sysdate, a_fid, v_uv,a_obj_name;
3396: elsif a_attr_name = 'time_date_modified' then
3397: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3393: EXECUTE IMMEDIATE 'update bism_objects set time_date_created = :1
3394: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3395: using sysdate, a_fid, v_uv,a_obj_name;
3396: elsif a_attr_name = 'time_date_modified' then
3397: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3398: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3399: using sysdate, a_fid, v_uv,a_obj_name;
3400: elsif a_attr_name = 'time_date_last_accessed' then
3401: EXECUTE IMMEDIATE 'update bism_objects set time_date_last_accessed = :1
3397: EXECUTE IMMEDIATE 'update bism_objects set time_date_modified = :1
3398: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3399: using sysdate, a_fid, v_uv,a_obj_name;
3400: elsif a_attr_name = 'time_date_last_accessed' then
3401: EXECUTE IMMEDIATE 'update bism_objects set time_date_last_accessed = :1
3402: where folder_id = :2 and user_visible = :3 and object_name = :4 '
3403: using sysdate, a_fid, v_uv,a_obj_name;
3404: end if;
3405: end if;
3416: b_var char(1);
3417: created_subid raw(16) := null;
3418: modified_subid raw(16) := null;
3419: v_attrs_xml varchar2(4000);
3420: v_uv bism_objects.user_visible%type:='Y';
3421:
3422: begin
3423:
3424: if a_ext_attr_xml is null or length(a_ext_attr_xml) = 0 then