A bunch of bug fixes.

src/clj/auto_ap/yodlee/core.clj

@@ -52,6 +52,15 @@
         :body
         :account)))
 
+(defn get-accounts-for-provider-account [provider-account-id]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)]
+    (-> (str (:yodlee-base-url env) "/accounts?providerAccountId=" provider-account-id) 
+        (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
+                     :as :json})
+        :body
+        :account)))
+
 (defn get-account [i]
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)]
@@ -252,7 +261,7 @@
   (future
     (loop []
       (try 
-        (reset! in-memory-cache (get-provider-accounts-with-accounts))
+        (reset! in-memory-cache (get-provider-accounts-with-accounts)) 
         (catch Exception e
           (println e)))
       (Thread/sleep (* 30 1000 5))
@@ -260,10 +269,29 @@
         (recur)))))
 
 (defn refresh-provider-account [id]
-  (swap! in-memory-cache
+  (swap! in-memory-cache 
          (fn [i]
            (-> (by :id i)
-               (update id merge (get-provider-account-detail id))
+               (assoc id (assoc  (get-provider-account-detail id)
+                                 :accounts (get-accounts-for-provider-account id)))
+               vals))))
+
+(defn delete-provider-account [id]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)
+        batch-size 100]
+
+    (-> (str (:yodlee-base-url env) "/providerAccounts/" id ) 
+
+        (client/delete {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
+                     :as :json})
+        :body
+        :providerAccount
+        first))
+  (swap! in-memory-cache 
+         (fn [i]
+           (-> (by :id i)
+               (dissoc id)
                vals))))
 
 (defn update-yodlee [id]