aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog2
-rw-r--r--src/web/ejabberd_web_admin.erl20
2 files changed, 20 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index cbf913647..581a16a50 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2005-04-18 Alexey Shchepin <alexey@sevcom.net>
+ * src/web/ejabberd_web_admin.erl: Added link to shared roster page
+
* src/odbc/ejabberd_odbc.erl: ODBC connection string can be
specified via odbc_server option now
* src/ejabberd.cfg.example: Added ODBC usage example
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 314b98380..90d0a9a92 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -107,7 +107,15 @@ make_xhtml(Els, Lang) ->
?LI([?ACT("/admin/online-users/", "Online Users")]),
?LI([?ACT("/admin/nodes/", "Nodes")]),
?LI([?ACT("/admin/stats/", "Statistics")])
- ])]),
+ ] ++
+ case lists:member(mod_shared_roster,
+ gen_mod:loaded_modules()) of
+ true ->
+ [?LI([?ACT("/admin/shared-roster/", "Shared Roster")])];
+ false ->
+ []
+ end
+ )]),
?XAE("td",
[{"id", "middle-td2"}],
[?XAE("div", [{"id", "content"}], Els)])])])
@@ -508,7 +516,15 @@ process_admin(#request{us = US,
?LI([?ACT("online-users/", "Online Users")]),
?LI([?ACT("nodes/", "Nodes")]),
?LI([?ACT("stats/", "Statistics")])
- ])
+ ] ++
+ case lists:member(mod_shared_roster,
+ gen_mod:loaded_modules()) of
+ true ->
+ [?LI([?ACT("shared-roster/", "Shared Roster")])];
+ false ->
+ []
+ end
+ )
], Lang);
process_admin(#request{us = US,