fix #81 data integrity

APLSource/SQL.apln

@@ -111,13 +111,16 @@
           ';'(≠⊆⊢)sql                         ⍝ Split on semicolons
       }
 
-    ∇ msg←SetupSchema dum;create_migrations;folder;schema_definitions;sequence;latest;migrations;migration;batch;sql
+    ∇ msg←SetupSchema dum;batch;create_migrations;folder;latest;migration;migrations;order;schema_definitions;sequence;sql
       create_migrations←⊃⎕NGET ##.GLOBAL.app_dir,'/sql/migrations.sql'
       Do create_migrations
 
       folder←##.GetEnv'SCHEMA_DEFS'
-      schema_definitions←(⊂∘⍋⌷⊢)'.*\d+-.*.sql'⎕S'&'⊃0(⎕NINFO⍠'Wildcard' 1)folder
+      schema_definitions←'.*\d+-.*.sql'⎕S'&'⊃0(⎕NINFO⍠'Wildcard' 1)folder
       sequence←∊2⊃¨⎕VFI¨⊃¨'-'(≠⊆⊢)¨2⊃¨⎕NPARTS¨schema_definitions
+      order←⍋sequence
+      schema_definitions←schema_definitions[order]
+      sequence←sequence[order]
 
       :If 0=⊃latest←SQA.Do db'select max(batch) from migrations'
           (migrations sequence)←(schema_definitions sequence)↓⍨¨3 1⊃latest   ⍝ Database exists, apply after most recent migration

APLSource/Version.aplf

@@ -1,2 +1,2 @@
  version←Version
- version←'3.24.2'
+ version←'3.24.3'

Admin/Tests/DummyData/Test_Fail_InsertDuplicatePresentationMedia.aplf

@@ -0,0 +1,12 @@
+ r←Test_Fail_InsertDuplicatePresentationMedia url;dmx
+⍝ Test that duplicate presentation media cannot be inserted
+ r←0
+
+ sql←'INSERT INTO presentation_media (`presentation_id`, `media_id`, `type`) VALUES (1, 1, "youtube_video")'
+
+ :Trap 500
+     #.DCMS.SQL.Do sql
+ :Else
+     dmx←⎕DMX   ⍝ Save ⎕DMX for debugging
+     r←'Duplicate entry'(∨/⍷)dmx.EM
+ :EndTrap

Admin/Tests/InsertDummyData.aplf

@@ -34,7 +34,7 @@
  event.title←(vocab:thing_names ⋄ max:2)generator.Name⍣{∧/≠⍵}n
  event.(start end)←generator.DateTime¨2⍴n
  event.type←?n⍴n
- event.url_slug←'-'@(' '∘=)¨¯1⎕C event.title
+ event.url_slug←'-'@(' '∘=)¨¯1 ⎕C event.title
  event.⎕DF'event'
 
  organisation←()
@@ -93,7 +93,7 @@
  WrapBackticks←(2↓∊)'`'∘(', ',⊣,⊣,⍨⊢)¨
  WrapColons←(1↓∊)(',:',':',⍨⊢)¨
 
- :For table :In event_type event organisation person category presentation presentation_type presenter presentation_media youtube_video
+ :For table :In event_type event organisation person category presentation_type presentation presenter presentation_media youtube_video
      ⎕←name←⍕table
      table.id←⍳n
      tid←D.GLOBAL.tables⍳⊂name

sql/10-presentation-event_id-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `presentation` ADD CONSTRAINT FOREIGN KEY (`event_id`) REFERENCES `event`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT

sql/11-presentation-type_id-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `presentation` ADD CONSTRAINT FOREIGN KEY (`type_id`) REFERENCES `presentation_type`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT

sql/12-presenter-presentation_id-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `presenter` ADD CONSTRAINT FOREIGN KEY (`presentation_id`) REFERENCES `presentation`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT

sql/13-presenter-person_id-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `presenter` ADD CONSTRAINT FOREIGN KEY (`person_id`) REFERENCES `person`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT

sql/14-presentation_media-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `presentation_media` ADD CONSTRAINT FOREIGN KEY (`presentation_id`) REFERENCES `presentation`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT

sql/6-presentation_media-unique.sql

@@ -0,0 +1 @@
+ALTER TABLE `presentation_media` ADD CONSTRAINT UNIQUE (`presentation_id`, `media_id`, `type`);

sql/7-event-foreign-key-type.sql

@@ -0,0 +1 @@
+ALTER TABLE `event` MODIFY `type` int(10) unsigned

sql/8-presentation-foreign-key-type.sql

@@ -0,0 +1 @@
+ALTER TABLE `presentation_media` MODIFY `presentation_id` int(10) unsigned NOT NULL

sql/9-event-foreign-key.sql

@@ -0,0 +1,2 @@
+ALTER TABLE `event` ADD CONSTRAINT FOREIGN KEY (`type`) REFERENCES `event_type`(`id`)
+    ON DELETE CASCADE ON UPDATE RESTRICT