* src/web/ejabberd_web_admin.erl: Added link to shared roster page

SVN Revision: 316

diff --git a/ChangeLog b/ChangeLog
index cbf9136471df8ac96cc5d18738e074d268ff44d1..581a16a50d59d5d907071184e693d671e32f97e3 100644 (file)
--- 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 314b9838044c3ed00965468e12f2019c0ea9c932..90d0a9a924391c759163bf6febedbfb79384d0f8 100644 (file)
--- 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,