Merge branch 'master' of /pichat/repo

1 files changed, 10 insertions, 7 deletions

diff --git a/src/utils.clj b/src/utils.clj
index fbdefda..9008793 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -13,7 +13,8 @@
         clojure.contrib.sql
         clojure.contrib.duck-streams
         clojure.contrib.str-utils
-        compojure))
+        compojure
+        config))
 
 (let [db-host "localhost"
       db-name "dumpfm"
@@ -263,13 +264,15 @@
   (try
     (let [st (.getInstanceOf template-group template)]
       (if (session :nick)
-	(doto st
-	  (.setAttribute "user_email" (session :email))
-	  (.setAttribute "user_nick" (session :nick))
-	  (.setAttribute "user_avatar" (if (non-empty-string? (session :avatar))
+	      (doto st
+	        (.setAttribute "user_email" (session :email))
+	        (.setAttribute "user_nick" (session :nick))
+	        (.setAttribute "user_avatar" (if (non-empty-string? (session :avatar))
 					 (session :avatar) nil))
-	  (.setAttribute "isadmin" (session :is_admin)))
-	st))
+	        (.setAttribute "isadmin" (session :is_admin))
+	        (.setAttribute "domain" config/*server-url*))
+	      (doto st
+	        (.setAttribute "domain" config/*server-url*))))
     (catch Exception e nil)))
 
 (defn fetch-template-fragment [template]