Fixed updating avatar-url

1 files changed, 5 insertions, 5 deletions

diff --git a/src/site.clj b/src/site.clj
index 60f07d7..48ba39e 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -339,10 +339,10 @@
   (with-connection *db*
     (update-values "users" ["user_id = ?" user-id] {attr val})))
 
-(defn download-avatar [session url]
-  (let [url false]
-    (update-user-db (session :user_id) "avatar" url)
-    (resp-success url)))
+(defn update-avatar [session url]
+  (update-user-db (session :user_id) "avatar" url)
+  [(session-assoc :avatar url)
+   (resp-success url)])
 
 (defn update-profile [session params]
   (let [user-id (session :user_id)
@@ -352,7 +352,7 @@
     (cond (not user-id)                   (resp-error "MUST_LOGIN")
           (not (and user-id attr val))    (resp-error "BAD_REQUEST")
           (not (contains? attr-set attr)) (resp-error "BAD_REQUEST")
-          (= attr "avatar")               (download-avatar session val)
+          (= attr "avatar")               (update-avatar session val)
           :else (do (update-user-db user-id attr val)
                     (resp-success "OK")))))