Problems with embed

Author: graham-trott

iwsy/resources/ecs/help.txt

@@ -95,7 +95,7 @@ GetPage:
         add 1 to N
         put left N of Data into Data
     	iwsy load Player Embed
-!        iwsy path Data
+        iwsy path Data
         iwsy run
     end
     stop

iwsy/resources/ecs/iwsy.txt

@@ -808,8 +808,9 @@ DoOpen:
 ! Fill the browser with content from the server
   	if Static go to OpenFromStorage
     if UserRecord go to OpenFromUser
-  	if IsHome go to OpenFromStorage
+!  	if IsHome go to OpenFromStorage
 
+OpenFromAdmin:
 	gosub to CheckAdminPassword
     if AdminPassword is empty stop
     rest get Files from `list/` cat AdminPassword cat `/scripts?v=` cat now
@@ -904,8 +905,9 @@ SelectFile:
 
     if Static go to SelectFromStorage
     if UserRecord go to SelectFromUser
-    if IsHome go to SelectFromStorage
-    
+!    if IsHome go to SelectFromStorage
+
+SelectFromAdmin:
     rest get Presentation from Protocol cat Domain cat `/resources/scripts/` cat File cat `?v=` cat now
     go to UseFile
 
@@ -1000,6 +1002,7 @@ DoRunStop:
         set Message to object
         set property `action` of Message to `running`
         send Message to StepsModule
+    	iwsy init CDN
 		iwsy run then
         begin
 			gosub to ClearStepsButtons

iwsy/resources/ecs/steps.txt

@@ -736,10 +736,12 @@ EditChain:
     get UserHome from storage as `user.home`
 	set ChainNames to array
 
-    if Static go to EditChainFromStorage
+    if Static is `static` go to EditChainFromStorage
     if UserRecord go to EditChainFromUser
-    if IsHome go to EditChainFromStorage
-	
+!    if IsHome go to EditChainFromStorage
+
+EditChainFromAdmin:
+print `EditChainFromAdmin`
     get AdminPassword from storage as `.password`
     if AdminPassword is empty put prompt `Please type the admin password` with `` into AdminPassword
     rest get Valid from `verify/` cat AdminPassword
@@ -762,6 +764,7 @@ EditChain:
      go to ProcessChainNames
 
 EditChainFromUser:
+print `EditChainFromUser`
     rest get Files from `ulist/` cat Email cat `/` cat Password cat `/`
        	cat `users/` cat UserHome cat `/scripts`
     put the json count of Files into FileCount
@@ -775,6 +778,7 @@ EditChainFromUser:
      go to ProcessChainNames
 
 EditChainFromStorage:
+print `EditChainFromStorage`
 	get Files from storage
  	put the json count of Files into FileCount
   	put 0 into N