Revert removal of optional user arg from mark-completed

chrismgray · Dec 14, 2011 · 4bbf599 · 4bbf599
1 parent c8974f1
commit 4bbf599
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/foreclojure/problems.clj b/src/foreclojure/problems.clj
@@ -134,8 +134,8 @@
     (record-golf-score! user-id problem-id (code-length code))
     (save-solution user-id problem-id code)))
 
-(defn mark-completed [problem code]
-  (let [user (session/session-get :user)
+(defn mark-completed [problem code & [user]]
+  (let [user (or user (session/session-get :user))
         {:keys [_id approved]} problem
         gist-link (html [:span.share
                          [:a.novisited {:href "/share/code"} "share"]