OpenACS

yon
committed
MAIN:yon:20020525141849
on 25 May 02
using connect by in oracle version of update_last_modified (plpgsql version is still using recursive version)
/postgresql/file-storage-simple-package-create.sql (+3 -1)
26 26         p_description           alias for $5;
27 27         p_creation_date         alias for $6;
28 28         p_creation_user         alias for $7;
29 29         p_creation_ip           alias for $8;
30 30         p_context_id            alias for $9;
31 31         v_object_id             integer;
32 32 BEGIN
33 33         v_object_id:= acs_object__new (
34 34               p_object_id,
35 35               p_object_type,
36 36               p_creation_date,
37 37               p_creation_user,
38 38               p_creation_ip,
39 39               p_context_id
40 40         );
41 41
42 42         insert into fs_simple_objects
43 43         (object_id, folder_id, name, description) values
44 44         (v_object_id, p_folder_id, p_name, p_description);
45 45         
  46         acs_object__update_last_modified(p_folder_id);
  47
46 48         return v_object_id;
47 49     
48 50 END;
49 51 ' language 'plpgsql';
50 52
51 53
52 54
53 55 create function fs_simple_object__delete(integer)
54 56 returns integer as '
55 57 DECLARE
56 58         p_object_id             alias for $1;
57 59 BEGIN
58 60         PERFORM acs_object__delete(p_object_id);
59 61
60 62         return 0;
61 63 END;
62 64 ' language 'plpgsql';
63 65
64 66
65 67