Removed call to redirect_to_referrer

1 files changed, 13 insertions, 6 deletions

diff --git a/ppp-model.lua b/ppp-model.lua
index 8374fe9..ff7a8cc 100644
--- a/ppp-model.lua
+++ b/ppp-model.lua
@@ -94,19 +94,26 @@ function create_peer(self, newpeer)
 	return newpeer
 end
 
-function delete_peer(name)
-	local retval = cfe({ value="Failed to delete peer", label="Delete Peer Result", errtxt="Peer not found" })
+function get_delete_peer(self, clientdata)
+	retval = {}
+	retval.name = cfe({ value=clientdata.name or "", label="Name" })
+	return cfe({ type="group", value=retval, label="Delete Peer File" })
+end
+
+function delete_peer(self, delpeer)
+	delpeer.errtxt = "Failed to delete peer"
+	delpeer.value.name.errtxt="Peer not found"
 
 	for file in fs.find(nil, peerspath) do
-		if name == file then
+		if delpeer.value.name.value == file then
 			os.remove(file)
-			retval.value = "Peer Deleted"
-			retval.errtxt = nil
+			delpeer.errtxt = nil
+			delpeer.value.name.errtxt = nil
 			break
 		end
 	end
 
-	return retval
+	return delpeer
 end
 
 function read_peerfile(name)