HMS

commit 39f8c11b16a061703f2114271d88aa2fe7587fbe
parent 4c7b3e108f8b68665a1c8393e2b4fcc9d2fe6a1d
Author: Brian C. Lane <bcl@brianlane.com>
Date:   Mon, 14 Nov 2011 21:42:26 -0800

Added a couple error dialogs

Diffstat:
M
HMS/source/getDirectoryListing.brs
 | 
12
++++++++++--

1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/HMS/source/getDirectoryListing.brs b/HMS/source/getDirectoryListing.brs
@@ -6,7 +6,11 @@ Function getDirectoryListing(url As String) As Object
     result = getHTMLWithTimeout(url, 60)
 
     if result.error then
-        print "ERROR: Could not get directory listing"
+        title = "Directory Listing Error"
+        text  = "There was an error fetching the directory listing."
+        print text
+        ShowErrorDialog(text, title)
+
         return invalid
     end if
     dir = result.str
@@ -14,7 +18,11 @@ Function getDirectoryListing(url As String) As Object
     ' Try parsing the html as if it is XML
     xml=CreateObject("roXMLElement")
     if not xml.Parse(dir) then
-        print "Cannot parse directory listing as XML"
+        title = "Cannot Parse XML"
+        text  = "There was an error parsing the directory listing as XML."
+        print text
+        ShowErrorDialog(text, title)
+
         return invalid
     end if