CORE-1901 Allow Agave jobs only in job listings

Author: psarando

src/apps/persistence/jobs.clj

@@ -23,6 +23,7 @@
             [permissions-client.core :as pc]))
 
 (def de-job-type "DE")
+(def agave-job-type "Agave")
 (def tapis-job-type "Tapis")
 (def interactive-job-type "Interactive")
 (def osg-job-type "OSG")

src/apps/service/apps/combined.clj

@@ -23,7 +23,7 @@
     jp/combined-client-name)
 
   (getJobTypes [_]
-    (mapcat #(.getJobTypes %) clients))
+    (conj (mapcat #(.getJobTypes %) clients) jp/agave-job-type))
 
   (listSystemIds [_]
     (mapcat #(.listSystemIds %) clients))
@@ -368,4 +368,5 @@
     (.hasAppPermission (util/get-apps-client clients system-id) username system-id app-id required-level))
 
   (supportsJobSharing [_ job-step]
-    (.supportsJobSharing (util/apps-client-for-job-step clients job-step) job-step)))
+    (and (not= (:job_type job-step) jp/agave-job-type)
+         (.supportsJobSharing (util/apps-client-for-job-step clients job-step) job-step))))