added XML Debug String function and fix file selector
This commit is contained in:
parent
6a57a9f393
commit
d22652cd92
1 changed files with 7 additions and 1 deletions
|
@ -4,7 +4,7 @@
|
||||||
;*
|
;*
|
||||||
|
|
||||||
Procedure.s mimetype(file.s)
|
Procedure.s mimetype(file.s)
|
||||||
Select file
|
Select LCase(file)
|
||||||
Case "pdf"
|
Case "pdf"
|
||||||
ProcedureReturn "application/pdf"
|
ProcedureReturn "application/pdf"
|
||||||
Case "zip"
|
Case "zip"
|
||||||
|
@ -56,4 +56,10 @@ Procedure.s MapToJSONString(Map ConvertMap.s())
|
||||||
ProcedureReturn Response
|
ProcedureReturn Response
|
||||||
EndIf
|
EndIf
|
||||||
ProcedureReturn #error_string
|
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
|
EndProcedure
|
Loading…
Reference in a new issue