1: function hp_onelevelup_content_title (filesystem_node IN integer)
2: return varchar2
3: IS
4: CURSOR name_cursor IS
5: select file_pretty_name from users_files
6: where file_id=filesystem_node;
7: CURSOR parent_cursor IS
8: select parent_id from users_files
9: where file_id=filesystem_node;
10: CURSOR managed_p_cursor IS
11: select managed_p from users_files
12: where file_id=filesystem_node;
13: CURSOR directory_p_cursor IS
14: select directory_p from users_files
15: where file_id=filesystem_node;
16: managedp varchar(1);
17: dirp varchar(1);
18: parentid integer;
19: fullname varchar(500);
20: BEGIN
21: OPEN name_cursor;
22: OPEN parent_cursor;
23: OPEN managed_p_cursor;
24: OPEN directory_p_cursor;
25: FETCH parent_cursor INTO parentid;
26: FETCH managed_p_cursor INTO managedp;
27: FETCH directory_p_cursor INTO dirp;
28: FETCH name_cursor INTO fullname;
29: CLOSE parent_cursor;
30: CLOSE managed_p_cursor;
31: CLOSE directory_p_cursor;
32: CLOSE name_cursor;
33:
34: IF parentid is null
35: THEN
36: return fullname;
37: END IF;
38: IF managedp = 't'
39: THEN
40: IF dirp = 't'
41: THEN
42: return fullname;
43: ELSE
44: return hp_onelevelup_content_title(parentid);
45: END IF;
46: ELSE
47: return fullname;
48: END IF;
49: END;
|