darcs - gombemi

2 --

3 -- This file is part of Gombe-MI.

4 --

5 -- Gombe-MI is free software; you can redistribute it and/or modify

6 -- it under the terms of the GNU General Public License as published by

7 -- the Free Software Foundation; either version 3 of the License, or

8 -- (at your option) any later version.

9 --

10 -- This program is distributed in the hope that it will be useful,

11 -- but WITHOUT ANY WARRANTY; without even the implied warranty of

12 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

13 -- GNU General Public License for more details.

14 --

15 -- You should have received a copy of the GNU General Public License

16 -- along with Gombe-MI. If not, see <http://www.gnu.org/licenses/>.

17 --

18 -- Change the grooming of KID by MOM to a play at 9:00 in follow 1.

19 --

20 -- All data appearing in this work are fictitious. Any resemblance to

21 -- actual data, living or archived, is purely coincidental.

22 --

23 -- Karl O. Pinc <kop@meme.com>

24 --

26 -- Comment the existing data so we get a new commit to test the

27 -- parts trigger.

28 commit;

29 begin;

31 do $$

32 declare

33 this_eid events.eid%type;

35 begin

37 select events.eid

38 into this_eid

39 from intervals

40 , events

41 , parts as mom

42 , parts as kid

43 where intervals.followid = 1

44 and intervals.time = '9:00'

45 and intervals.intid = events.intid

46 and mom.eid = events.eid

47 and kid.eid = events.eid

48 and events.behavior = 'G'

49 and mom.participant = 'MOM'

50 and mom.part = 'R'

51 and kid.participant = 'KID'

52 and kid.part = 'E';

54 update events

55 set behavior = 'P'

56 where eid = this_eid;

58 insert into plays (eid, play)

59 values(this_eid, 'OP');

61 end;

62 $$;