From 57035b383c0bf77fc45b9ae36b374e4ee30dcad9 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 5 Mar 2014 12:12:47 +0100
Subject: [PATCH] Handle error when requesting information of a non-existing
 shared roster (fixes #14)

---
 src/mod_admin_extra.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index 41f05e5aa..c5060f088 100644
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -1332,7 +1332,10 @@ srg_list(Host) ->
     lists:sort(mod_shared_roster:list_groups(Host)).
 
 srg_get_info(Group, Host) ->
-    Opts = mod_shared_roster:get_group_opts(Host,Group),
+    Opts = case mod_shared_roster:get_group_opts(Host,Group) of
+	Os when is_list(Os) -> Os;
+	error -> []
+    end,
     [{io_lib:format("~p", [Title]),
       io_lib:format("~p", [Value])} || {Title, Value} <- Opts].