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 -- Individuals who's distance is measured must be in groupmembers:

19 -- update of 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 --

27 commit;

28 begin;

30 -- Swap the 9:00 and the 9:02 group membership.

32 do $$

33 declare

34 gid9 groups.gid%type;

35 gid902 groups.gid%type;

37 begin

38 select intervals.gid

39 into strict gid9

40 from intervals

41 where intervals.time = '9:00'

42 and intervals.followid = 1;

44 select intervals.gid

45 into strict gid902

46 from intervals

47 where intervals.time = '9:02'

48 and intervals.followid = 1;

50 update intervals

51 set gid = gid902

52 where intervals.time = '9:00'

53 and intervals.followid = 1;

55 update intervals

56 set gid = gid9

57 where intervals.time = '9:02'

58 and intervals.followid = 1;

59 end;

60 $$;