 
 (def row-height-px 56)
 
-(def disabled-text
+(def dbGap-disabled-text
   (str "This workspace contains controlled access data. You can only access the contents of this workspace if you are "
        "dbGaP authorized for TCGA data and have linked your FireCloud account to your eRA Commons account."))
+
+(def non-dbGap-disabled-text "This workspace is protected. To access the data, please contact help@firecloud.org.")
 
 (react/defc StatusCell
   {:render
    (fn [{:keys [props]}]
      (let [{:keys [nav-context data]} props
-           {:keys [href status disabled?]} data]
+           {:keys [href status disabled? hover-text]} data]
        [:a {:href (if disabled?
                     "javascript:;"
                     (nav/create-href nav-context href))

                    :cursor (when disabled? "default")
                    :height (- row-height-px 4)
                    :margin "2px 0"}
            :title (when disabled? disabled-text)}
        (when protected?
          [:span {:style {:display "block" :position "relative"}}
           [:span {:style {:display "block" :position "absolute" :left -17 :top -9
                           :width (- row-height-px 4) :padding "4px 0"

          :->row (fn [ws]
                   (let [ws-name (get-workspace-name-string ws)
                         ws-href (let [x (:workspace ws)] (str (:namespace x) ":" (:name x)))
                         disabled? (= (:accessLevel ws) "NO ACCESS")
                         hover-text (when disabled? (if (get-in ws [:workspace :isProtected])
                                                      dbGap-disabled-text
                                                      non-dbGap-disabled-text))]
                     [{:name ws-name :href ws-href :status (:status ws) :disabled? disabled? :hover-text hover-text}
                      {:name ws-name :href ws-href :status (:status ws) :disabled? disabled? :hover-text hover-text
                       :restricted? (get-in ws [:workspace :realm])}
                      (get-workspace-description ws)
                      (get-in ws [:workspace :lastModified])
                      (:accessLevel ws)
