Fixing bug at install commons.

This commit is contained in:
ruidajo 2022-06-09 13:51:20 -05:00
parent 722b2d2066
commit dcb098e0c7

View File

@ -11,11 +11,12 @@ installCommons
folder exists folder exists
ifTrue: [ folder ensureDeleteAllChildren ] ifTrue: [ folder ensureDeleteAllChildren ]
ifFalse: [ folder ensureCreateDirectory]. ifFalse: [ folder ensureCreateDirectory].
commonFiles do: [ :fileUrl | commonFiles do: [ :fileUrl | | temp |
ZnClient new ZnClient new
url: fileUrl; url: fileUrl;
downloadTo: folder. downloadTo: folder.
(folder children select: [ :file | file basename includesSubstring: 'raw' ]) temp := (folder children select: [ :file | file basename includesSubstring: 'raw' ]).
renameTo: (((fileUrl splitOn: 'raw?') second splitOn: '/') last removeSuffix: '&ci=tip') temp isNotEmpty ifTrue: [
temp first renameTo: (((fileUrl splitOn: 'raw?') second splitOn: '/') last removeSuffix: '&ci=tip')].
]. ].
^ folder ^ folder