 
 (defn- place-rank-component
   [user-connectors component]
-  (log/info "component is: " component)
+  (log/info "Placing and ranking component " component)
+  (log/info "user-connectors = " user-connectors)
   (let [filtered-service-offers (service-offers-by-component-policy user-connectors component)]
-    (log/info "filtered-service-offers = " (map :id filtered-service-offers))
-    (log/info "user-connectors = " user-connectors)
+    (log/info "filtered-service-offers = " (map display-service-offer filtered-service-offers))
     (price-component user-connectors filtered-service-offers component)))
 
 (defn place-and-rank
   [request]
-  (log/info "Calling place-and-rank")
   (let [components (:components request)
         user-connectors (:user-connectors request)]
     {:components (map (partial place-rank-component user-connectors) components)}))

        connectors-clause   (str/join " or " connectors-clauses)
        cimi-filter         (cimi-and policy connectors-clause)
        cimi-filter         (cimi-and cimi-filter (clause-cpu-ram-disk component))]
    (log/debug "the cimi-filter = " cimi-filter)
    cimi-filter))

(defn- service-offers-by-component-policy

                       :values   [1]}])
    no-price))

;; TODO hard-coded currency to EUR and timecode to "HUR"
(defn- price-connector
  [service-offers connector-name]
  (if-let [service-offer (service-offer-for-connector service-offers connector-name)]
    (let [price (compute-price service-offer "HUR")]
      (log/info "Priced " (display-service-offer service-offer) ":" price "EUR/h")
      {:name          connector-name
       :price         price
       :currency      "EUR"
       :cpu           (cpu service-offer)
       :ram           (ram service-offer)
