From 56b5d113a42c30d91652ef63e341f1ba4af4e880 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Fri, 22 Jun 2007 14:04:45 +0000
Subject: [PATCH] * src/web/ejabberd_web_admin.erl: Added links to server and
 virtual host homes (thanks to Badlop)

SVN Revision: 787
---
 ChangeLog                      |  5 +++++
 src/web/ejabberd_web_admin.erl | 13 +++++++++++--
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 748a051c6..68ef9c438 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-22  Alexey Shchepin  <alexey@sevcom.net>
+
+	* src/web/ejabberd_web_admin.erl: Added links to server and
+	virtual host homes (thanks to Badlop)
+
 2007-06-20  Mickael Remond  <mickael.remond@process-one.net>
 
 	* src/mod_muc/mod_muc_room.erl: It is now possible to limit who is
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 58b0ecb12..1b7e0ff9b 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -189,12 +189,16 @@ make_xhtml(Els, Host, Lang) ->
 		 [?XAE("div",
 		       [{"id", "header"}],
 		       [?XE("h1",
-			    [?ACT(Base, "Administration")]
+			    [?ACT("/admin/", "Administration")]
 			   )]),
 		  ?XAE("div",
 		       [{"id", "navigation"}],
 		       [?XE("ul",
-			    [?LI([?ACT(Base ++ "acls/", "Access Control Lists")]),
+			    [?LI([?XAE("div",
+			        [{"id", "navheadhost"}],
+			        [?AC(Base, Host)]
+			     )]),
+			     ?LI([?ACT(Base ++ "acls/", "Access Control Lists")]),
 			     ?LI([?ACT(Base ++ "access/", "Access Rules")]),
 			     ?LI([?ACT(Base ++ "users/", "Users")]),
 			     ?LI([?ACT(Base ++ "online-users/", "Online Users")]),
@@ -354,6 +358,11 @@ html>body #container {
   background: #332;
 }
 
+#navheadhost {
+  text-align: left;
+  border-bottom: 2px solid #d47911;
+}
+
 #lastactivity li {
   font-weight: bold;
   border: 1px solid #d6760e;