Correct status when copying between local drives.

This commit is contained in:
prpr 2023-02-17 20:37:50 +00:00
parent d3d1755e98
commit 7a00ea84ed
1 changed files with 3 additions and 7 deletions

View File

@ -212,12 +212,8 @@ if {[llength $data]} {
foreach file [array names data] {
set bname [file tail $file]
set name [string map {
"/mnt/hd2/My Video/" ""
"/media/drive1/Video/" ""
"/media/" ""
".ts" ""
} $file]
regexp {(^/(mnt/hd2/My Video|media/drive[1-9]+/Video)/)?(.*)(\.ts)?$}\
$file _ _ _ name
if {[lindex $data($file) 0] == -1} {
set mode chase
@ -250,7 +246,7 @@ if {[llength $data]} {
set mode $ops($file)
}
regexp -- {^([^0-9]+)} $mode x mode
regexp -- {^([^0-9]+)} $mode _ mode
switch $mode {
chase {