         (dbpay/debit-payment uid eid (dbpay/get-debt uname ename date))) 
       (when (= 0 (db/get-rest-parts ename date))
         (finish ename date) ))) 
-  (redirect "/user")) ; go to user page in any case
+  (pages/user)) ; go to user page in any case
 
 (defn process-it [ename date parts uname]
-  (println "processing " ename " " date " " parts " " uname)
   (if (isvalid/parts? ename date parts) ; its check if parts >= than free parts
     (do 
       (dbpay/debit-payment (db/get-uid uname) (db/get-eid ename date) (core/parts-price ename date parts))
       (db/shrink-goods ename date parts))
-    (redirect "/user")
-    ))
+    (pages/user)))
 
 (defn participate [{ename :event-name date :date}]
   "Add participation of current user and selected event(given as param from

      (dbpay/debit-payment uid eid (dbpay/get-debt uname ename date)) 
      (if (db/can-finish? ename date) 
        (finish ename date)))) 
  (redirect "/user")) ; go to user page in any case

(defn pay-part [{ename :event-name date :date parts :parts :as params}]
  "Add participation of current user and selected event(given as param from 
  post). Parts in params is count of parts, that user want to pay"
  (println "call pay-parts with: " ename " " date " '" parts "'")
  (let [uname (sess/get :username)
        uid (db/get-uid uname)
        eid (db/get-eid ename date)

(defn pay [{ename :event-name date :date :as params}]
  "Add participation of current user and selected event(given as param from 
  post). Parts in params is count of parts, that user want to pay"
  (let [uname (sess/get :username)
        uid (db/get-uid uname)
        eid (db/get-eid ename date)]
