From d22652cd9286ea7a2beb662a63f2413bdf687f68 Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Wed, 29 Mar 2023 10:43:54 +0200
Subject: [PATCH] added XML Debug String function and fix file selector

---
 inc/lweb_helper.pbi | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/inc/lweb_helper.pbi b/inc/lweb_helper.pbi
index 40cc8c2..2bc8d29 100644
--- a/inc/lweb_helper.pbi
+++ b/inc/lweb_helper.pbi
@@ -4,7 +4,7 @@
 ;*
 
 Procedure.s mimetype(file.s)
-  Select file
+  Select LCase(file)
     Case "pdf"
       ProcedureReturn "application/pdf"
     Case "zip"
@@ -56,4 +56,10 @@ Procedure.s MapToJSONString(Map ConvertMap.s())
     ProcedureReturn Response
   EndIf
   ProcedureReturn #error_string
+EndProcedure
+
+Procedure.s xml_error_debug(XMLHandle)
+  Define Debug_String.s
+  Debug_String = "XML Error:["+XMLError(XMLHandle)+"] At Line:["+Str(XMLErrorLine(XMLHandle))+"] Position:["+Str(XMLErrorPosition(XMLHandle))+"]"
+  ProcedureReturn Debug_String 
 EndProcedure
\ No newline at end of file