Issue #29 - Extend serverLinkProhibited state flag to keysets

sql/enum_reason.sql

@@ -92,8 +92,9 @@ INSERT INTO enum_reason VALUES (66, 'The validity period is shorter than the all
 INSERT INTO enum_reason VALUES (67, 'Contact linking forbidden', 'Není povoleno navázání kontaktu na objekty registru');
 INSERT INTO enum_reason VALUES (68, 'Auction pending', 'Probíhá aukce doménového jména');
 INSERT INTO enum_reason VALUES (69, 'Only the auction winner is authorized to register this domain', 'Pouze vítěz aukce je oprávněn registrovat tuto doménu');
+INSERT INTO enum_reason VALUES (70, 'Keyset linking forbidden', 'Není povoleno navázání keysetu na objekty registru');
 
-SELECT setval('enum_reason_id_seq', 69);
+SELECT setval('enum_reason_id_seq', 70);
 
 comment on table enum_reason is 'Table of error messages reason';
 comment on column enum_reason.reason is 'reason in english language';

sql/registry_dml_server_link_prohibited.sql

 ---
---- contact states
+--- serverLinkProhibited state flag
 ---
+WITH type AS
+(
+    SELECT ARRAY_AGG(id ORDER BY id) ids
+      FROM enum_object_type
+     WHERE name IN ('contact', 'keyset')
+)
 INSERT INTO enum_object_states (id, name, types, manual, external, importance)
-VALUES (34, 'serverLinkProhibited', '{1}', 't', 't', NULL);
+     SELECT 34, 'serverLinkProhibited', type.ids, TRUE, TRUE, NULL
+       FROM type;
 
 INSERT INTO enum_object_states_desc (state_id, lang, description)
-VALUES (34, 'CS', 'Není povoleno navázání kontaktu na objekty registru'),
-       (34, 'EN', 'Contact linking forbidden');
+VALUES (34, 'CS', 'Není povoleno navázání objektu na objekty registru'),
+       (34, 'EN', 'Object linking forbidden');

upgrades/NEXT-server-link-prohibited.sql

+---
+--- serverLinkProhibited state flag
+---
+WITH type AS
+(
+    SELECT ARRAY_AGG(type_id ORDER BY type_id) AS ids
+      FROM (SELECT UNNEST(types)
+              FROM enum_object_states
+             WHERE id = 34
+            UNION
+            SELECT id
+              FROM enum_object_type
+             WHERE name = 'keyset') tmp(type_id)
+)
+UPDATE enum_object_states
+   SET types = (SELECT ids FROM type)
+ WHERE id = 34 AND
+       name = 'serverLinkProhibited' AND
+       manual AND
+       external AND
+       importance IS NULL
+RETURNING id, name, types;
+
+UPDATE enum_object_states_desc
+   SET description = 'Není povoleno navázání objektu na objekty registru'
+ WHERE state_id = 34 AND
+       lang = 'CS';
+
+UPDATE enum_object_states_desc
+   SET description = 'Object linking forbidden'
+ WHERE state_id = 34 AND
+       lang = 'EN';
+
+---
+--- enum_reason
+---
+INSERT INTO enum_reason VALUES (70, 'Keyset linking forbidden', 'Není povoleno navázání keysetu na objekty registru');
+
+SELECT setval('enum_reason_id_seq', 70);