OpenACS

gilbertw
committed
MAIN:gilbertw:20010719223647
on 20 Jul 01


renamed the files to package-name-create/drop.sql so the APM will recognize it
openacs-4/.../oracle/survsimp-create.sql (+16 -15)
1 1 -- based on student work from 6.916 in Fall 1999
2 2 -- which was in turn based on problem set 4
3 3 -- in http://photo.net/teaching/one-term-web.html
4 4 --
5 5 -- by philg@mit.edu and raj@alum.mit.edu on February 9, 2000
6 6 -- converted to ACS 4.0 by nstrug@arsdigita.com on 29th September 2000
7 7 --
8 8 -- $Id$
9 9
10 10 -- we expect this to be replaced with a more powerful survey
11 11 -- module, to be developed by buddy@ucla.edu, so we prefix
12 12 -- all of our Oracle structures with "survsimp"
13 13
  14 -- gilbertw - logical_negation is defined in utilities-create.sql in acs-kernel
14 15 -- this is a PL/SQL function that used to be in the standard ACS 3.x core - not in the
15 16 -- current ACS 4.0 core however...
16   create or replace function logical_negation(true_or_false IN varchar)
17   return varchar
18   is
19   BEGIN
20     IF true_or_false is null THEN
21       return null;
22     ELSIF true_or_false = 'f' THEN
23       return 't';
24     ELSE
25       return 'f';
26     END IF;
27   END logical_negation;
28   /
29   show errors
  17 -- create or replace function logical_negation(true_or_false IN varchar)
  18 -- return varchar
  19 -- is
  20 -- BEGIN
  21 --   IF true_or_false is null THEN
  22 --     return null;
  23 --   ELSIF true_or_false = 'f' THEN
  24 --     return 't';
  25 --   ELSE
  26 --     return 'f';
  27 --   END IF;
  28 -- END logical_negation;
  29 -- /
  30 -- show errors
30 31
31 32 begin
32 33
33 34         acs_privilege.create_privilege('survsimp_create_survey');
34 35         acs_privilege.create_privilege('survsimp_modify_survey');
35 36         acs_privilege.create_privilege('survsimp_delete_survey');
36 37         acs_privilege.create_privilege('survsimp_create_question');
37 38         acs_privilege.create_privilege('survsimp_modify_question');
38 39         acs_privilege.create_privilege('survsimp_delete_question');
39 40         acs_privilege.create_privilege('survsimp_take_survey');
40 41
41 42         acs_privilege.create_privilege('survsimp_admin_survey');
42 43
43 44         acs_privilege.add_child('survsimp_admin_survey','survsimp_create_survey');
44 45         acs_privilege.add_child('survsimp_admin_survey','survsimp_modify_survey');
45 46         acs_privilege.add_child('survsimp_admin_survey','survsimp_delete_survey');
46 47         acs_privilege.add_child('survsimp_admin_survey','survsimp_create_question');
47 48         acs_privilege.add_child('survsimp_admin_survey','survsimp_modify_question');
48 49         acs_privilege.add_child('survsimp_admin_survey','survsimp_delete_question');
49 50