 
 
 
-(defn process-ask-for-endorsement [send-endorsement-neo4j-node]
+(defn process-ask-for-endorsement
+  [ send-endorsement-neo4j-node ]
+;----------------------------------------------------------------
   (if send-endorsement-neo4j-node
+
     (let
       [
        confirm-sender-code    (uuid-str)

            ;(println web-record)
            (neo4j "START n=node(*), m=node(*)
                   where id(n)={ws} and id(m)={wr}
                   create (n)-[:FRIENDSHIP {status:2}]->(m)
                   " {:ws (:neo-id session) :wr (:neo-id web-record)})

            []

    {:success false}

    ))





(defn add-history [{:keys [session-id  history-order  timestamp  path new-value]}]
