From 8955fabcc5f550eb3eb7c0a43c045e444878edff Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 22 Jun 2010 14:11:08 -0400 Subject: Fixed error message for broken chat template --- src/utils.clj | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 04b870f..fbdefda 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -259,16 +259,18 @@ (def template-group (new StringTemplateGroup "dumpfm" "template")) (.setRefreshInterval template-group 3) -; TODO: handle exception, clean-up template setting (defn fetch-template [template session] - (let [st (.getInstanceOf template-group template)] - (if (session :nick) - (do (.setAttribute st "user_email" (session :email)) - (.setAttribute st "user_nick" (session :nick)) - (if (non-empty-string? (session :avatar)) - (.setAttribute st "user_avatar" (session :avatar))) - (.setAttribute st "isadmin" (session :is_admin)))) - st)) + (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)) + (session :avatar) nil)) + (.setAttribute "isadmin" (session :is_admin))) + st)) + (catch Exception e nil))) (defn fetch-template-fragment [template] (.getInstanceOf template-group template)) -- cgit v1.2.3-70-g09d2