Fixing bug at install commons.
This commit is contained in:
parent
722b2d2066
commit
dcb098e0c7
@ -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
|
Loading…
Reference in New Issue
Block a user