 
 (defn- display-service-offer
   [service-offer]
-  (str "ServiceOffer "
-       (get-in service-offer [:connector :href]) "/"
+  (str (get-in service-offer [:connector :href]) "/"
        (instance-type service-offer)))
 
 (defn smallest-service-offer


(defn- EUR-or-unpriced?
  [service-offer]
  (let [price-currency (service-offer-currency-key service-offer)]
    (or (nil? price-currency) (= "EUR" price-currency))))

(defn- service-offer-for-connector

        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 "cimi-filter = " cimi-filter)
    cimi-filter))

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