percept: Fix unmatched return warnings

1 files changed, 37 insertions, 37 deletions

diff --git a/lib/percept/src/percept_html.erl b/lib/percept/src/percept_html.erl
index e0649e1451..a675227584 100644
--- a/lib/percept/src/percept_html.erl
+++ b/lib/percept/src/percept_html.erl
@@ -38,47 +38,47 @@
 %% API
 
 page(SessionID, Env, Input) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, overview_content(Env, Input)),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, overview_content(Env, Input)),
+    ok = mod_esi:deliver(SessionID, footer()).
 
 processes_page(SessionID, _, _) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, processes_content()),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, processes_content()),
+    ok = mod_esi:deliver(SessionID, footer()).
 
 concurrency_page(SessionID, Env, Input) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, concurrency_content(Env, Input)),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, concurrency_content(Env, Input)),
+    ok = mod_esi:deliver(SessionID, footer()).
 
 databases_page(SessionID, _, _) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, databases_content()),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, databases_content()),
+    ok = mod_esi:deliver(SessionID, footer()).
     
 codelocation_page(SessionID, Env, Input) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, codelocation_content(Env, Input)),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, codelocation_content(Env, Input)),
+    ok = mod_esi:deliver(SessionID, footer()).
 
 process_info_page(SessionID, Env, Input) ->
-    mod_esi:deliver(SessionID, header()),
-    mod_esi:deliver(SessionID, menu()), 
-    mod_esi:deliver(SessionID, process_info_content(Env, Input)),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, menu()),
+    ok = mod_esi:deliver(SessionID, process_info_content(Env, Input)),
+    ok = mod_esi:deliver(SessionID, footer()).
 
 load_database_page(SessionID, Env, Input) ->
-    mod_esi:deliver(SessionID, header()),
+    ok = mod_esi:deliver(SessionID, header()),
 
     % Very dynamic page, handled differently
     load_database_content(SessionID, Env, Input),
-    mod_esi:deliver(SessionID, footer()).
+    ok = mod_esi:deliver(SessionID, footer()).
 
 
 %%% --------------------------- %%%
@@ -442,24 +442,24 @@ load_database_content(SessionId, _Env, Input) ->
     Filename = filename:join(Path, File),
     % Check path/file/filename
     
-    mod_esi:deliver(SessionId, "<div id=\"content\">"), 
+    ok = mod_esi:deliver(SessionId, "<div id=\"content\">"),
     case file:read_file_info(Filename) of
 	{ok, _} ->
     	    Content = "<center>
     	    Parsing: " ++ Filename ++ "<br>
     	    </center>",
-	    mod_esi:deliver(SessionId, Content),
-	    case percept:analyze(Filename) of
-		{error, Reason} ->
-	    	    mod_esi:deliver(SessionId, error_msg("Analyze" ++ term2html(Reason)));
-		_ ->
-		    Complete = "<center><a href=\"/cgi-bin/percept_html/page\">View</a></center>",
-	    	   mod_esi:deliver(SessionId, Complete)
-	    end;
+	    ok = mod_esi:deliver(SessionId, Content),
+            case percept:analyze(Filename) of
+                {error, Reason} ->
+                    ok = mod_esi:deliver(SessionId, error_msg("Analyze" ++ term2html(Reason)));
+                _ ->
+                    Complete = "<center><a href=\"/cgi-bin/percept_html/page\">View</a></center>",
+                    ok = mod_esi:deliver(SessionId, Complete)
+            end;
 	{error, Reason} ->
-	    mod_esi:deliver(SessionId, error_msg("File" ++ term2html(Reason)))
+	    ok = mod_esi:deliver(SessionId, error_msg("File" ++ term2html(Reason)))
     end,
-    mod_esi:deliver(SessionId, "</div>"). 
+    ok = mod_esi:deliver(SessionId, "</div>").
 
 codelocation_content(_Env, Input) ->
     Query   = httpd:parse_query(Input),