Diff
Not logged in

Differences From Artifact [e00eecc8fc]:

To Artifact [a49ff45f93]:


359
360
361
362
363
364
365

366



367
368
369






370
371
372
373
374
375
376
359
360
361
362
363
364
365
366
367
368
369
370



371
372
373
374
375
376
377
378
379
380
381
382
383







+

+
+
+
-
-
-
+
+
+
+
+
+







      set directory(temporary) [lindex $downloadedFileName 1]

      if {$persistent} then {
        set fileNameOnly [lindex $downloadedFileName 0]
        set directory(persistent) [lindex $downloadedFileName 2]

        file mkdir $directory(persistent)
        set command [list file copy]

        if {$client} then {
          lappend command -force
        }
        file copy -- \
            [file join $directory(temporary) $fileNameOnly] \
            [file join $directory(persistent) $fileNameOnly]

        lappend command --
        lappend command [file join $directory(temporary) $fileNameOnly]
        lappend command [file join $directory(persistent) $fileNameOnly]

        eval $command

        lappend downloadDirectories $directory(persistent)
      } else {
        lappend downloadDirectories $directory(temporary)
      }
    }