1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
-- =============================================
-- project: GNUmed
-- $Source: /home/ncq/Projekte/cvs2git/vcs-mirror/gnumed/gnumed/server/sql/gmConcatTableStructureFutureStub.sql,v $
-- $Id: gmConcatTableStructureFutureStub.sql,v 1.2 2007-06-18 20:35:25 ncq Exp $
-- license: GPL v2 or later
-- author: Karsten.Hilbert@gmx.net
-- this is needed to allow a post 0.2.6 bootstrapper
-- to bootstrap databases starting from v2, it needs to
-- be imported by all versions up to and including v5
-- =============================================
-- force terminate + exit(3) on errors if non-interactive
\set ON_ERROR_STOP 1
-- ---------------------------------------------
\unset ON_ERROR_STOP
drop schema gm cascade;
\set ON_ERROR_STOP 1
create schema gm authorization "gm-dbo";
grant usage on schema gm to group "gm-doctors";
-- ---------------------------------------------
create or replace function gm.concat_table_structure(integer)
returns text
language 'plpgsql'
security definer
as '
declare
_db_ver alias for $1;
_struct text;
begin
select into _struct public.gm_concat_table_structure();
return _struct;
end;
';
-- ---------------------------------------------
create or replace function gm.concat_table_structure()
returns text
language 'plpgsql'
security definer
as '
declare
_struct text;
begin
select into _struct public.gm_concat_table_structure();
return _struct;
end;
';
-- =============================================
select public.log_script_insertion('$RCSfile: gmConcatTableStructureFutureStub.sql,v $', '$Revision: 1.2 $');
-- =============================================
-- $Log: gmConcatTableStructureFutureStub.sql,v $
-- Revision 1.2 2007-06-18 20:35:25 ncq
-- - add missing grant
--
-- Revision 1.1 2007/05/07 16:21:51 ncq
-- - needed during upgrade from v2/3/4/5
--
--
|
