fixed a problem with the labeling of the root directories

cyverse-archive · Feb 18, 2013 · 54ef186 · 54ef186
1 parent da844bf
commit 54ef186
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/nibblonian/irods_actions.clj b/src/nibblonian/irods_actions.clj
@@ -186,7 +186,8 @@
        (when (and set-own? (not (owns? cm user root-path)))
          (set-permissions cm user root-path false false true))
 
-       (jargon/list-dir cm user root-path :include-subdirs false))))
+       (when-let [res (jargon/list-dir cm user root-path :include-subdirs false)]
+         (assoc res :label (id->label user (:id res)))))))
 
 (defn create
   "Creates a directory at 'path' in iRODS and sets the user to 'user'.