From f77686481a041812e99f46cbb1ee3d6d2770e9de Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 26 Aug 2021 17:21:23 +0200
Subject: [PATCH] Add internal links in WebAdmin Vhosts page

---
 src/ejabberd_web_admin.erl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl
index 7dc11b571..e699ffc78 100644
--- a/src/ejabberd_web_admin.erl
+++ b/src/ejabberd_web_admin.erl
@@ -602,12 +602,14 @@ list_vhosts2(Lang, Hosts) ->
 					  [?AC(<<"../server/", Host/binary,
 						 "/">>,
 					       Host)]),
-				      ?XAC(<<"td">>,
+				      ?XAE(<<"td">>,
                                            [{<<"class">>, <<"alignright">>}],
-					  (pretty_string_int(RegisteredUsers))),
-				      ?XAC(<<"td">>,
+                                           [?AC(<<"../server/", Host/binary, "/users/">>,
+                                                pretty_string_int(RegisteredUsers))]),
+				      ?XAE(<<"td">>,
                                            [{<<"class">>, <<"alignright">>}],
-					  (pretty_string_int(OnlineUsers)))])
+                                           [?AC(<<"../server/", Host/binary, "/users/">>,
+                                                pretty_string_int(RegisteredUsers))]),
 			 end,
 			 SHosts)))])].