/ db / test / sql /
/db/test/sql/swelling_nma_intervals
1 -- Copyright (C) 2013 The Meme Factory, Inc., http://www.meme.com/
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 -- You can't have swelling when you're less than the minimum age:
19 -- update intervals.
20 --
21 -- All data appearing in this work are fictitious. Any resemblance to
22 -- actual data, living or archived, is purely coincidental.
23 --
24 -- Karl O. Pinc <kop@meme.com>
25 --
26
27 -- Female FE2 is too young to have swelling.
28
29 -- Remove a group survey from intervals,
30 -- add FE2 to the group survey with a swelling
31 -- and add the group survey back to intervals.
32
33 do $$
34 declare
35 this_gid groups.gid%type;
36
37 begin
38
39 select intervals.gid
40 into this_gid
41 from intervals
42 where intervals.followid = 1
43 order by intervals.gid
44 limit 1;
45
46 update intervals
47 set gid = NULL
48 where gid = this_gid;
49
50 insert into groupmembers (gid, chimpid, uncertain, swelling)
51 values(this_gid, 'FE2', 'f', '3/4');
52
53 update intervals
54 set gid = this_gid
55 where intervals.gid is null
56 and intervals.followid = 1;
57
58 end;
59 $$;
60