Fix SetOuterHTML function

the-carlisle-group · Jan 7, 2022 · beb7e5c · beb7e5c
1 parent 5df45f6
commit beb7e5c
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/APLSource/Main/SetOuterHTML.aplf b/APLSource/Main/SetOuterHTML.aplf
@@ -1,10 +1,14 @@
  SetOuterHTML←{
      ⍝ ⍺ ←→ Element
-     ⍝ ⍵ ←→ DOM content
-     _←⍺ SetProperty'outerHTML'⍵
-     n←H.HTML2DOM ⍵
+     ⍝ ⍵ ←→ DOM or HTML
+     d h←DOMandHTML ⍵
+     _←⍺ SetProperty'outerHTML'(h~⎕UCS 13)
      p←⍺.Parent
+     _←SetParent p
      i←p.Content⍳⍺
-     p.Content←(i↑p.Content),(i+1)↓p.Content
+     p.Content←(i↑p.Content),d,(i+1)↓p.Content
+     0=≢d:0
+     e←Elements¨d
+     e.Document←⍺.Document
      0
  }