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
|
-- ==============================================================
-- GNUmed database schema change script
--
-- License: GPL v2 or later
-- Author: karsten.hilbert@gmx.net
--
-- ==============================================================
--set default_transaction_read_only to off;
\set ON_ERROR_STOP 1
set check_function_bodies to on;
-- --------------------------------------------------------------
create or replace function gm.log_script_insertion(text, text) returns text as '
declare
_filename alias for $1;
_version alias for $2;
_hash text;
begin
delete from gm.schema_revision where filename = _filename;
insert into gm.schema_revision (filename, version) values (
_filename,
_version
);
perform gm.log_other_access (
''database change script inserted: '' || _filename || '' ('' || _version || '')''
);
select into _hash md5(gm.concat_table_structure());
return _hash;
end;' language 'plpgsql';
-- --------------------------------------------------------------
select gm.log_script_insertion('v17-gm-log_script_insertion.sql', '17.0');
|
