Don't create -crop.thm when ot cropping!

This commit is contained in:
Bob Buxton 2020-03-02 17:10:28 +00:00
parent 22559c1127
commit c1abf0db10

View File

@ -107,6 +107,7 @@ proc ::detectads::delete_orphans {} {
set bname [file rootname $file]
file delete -force $bname.hmt
file delete -force $bname.nts
file delete -force $bname.thm
file delete -force $file
log "Deleted orphan file $file"
}
@ -1010,7 +1011,9 @@ proc ::detectads::chaserun {ts {Qid 0} {retrynumb 0}} {
} else {
log "Thumbnail created at offset $offset in $(($thmend-$thmstart)/1000) seconds" 0
file copy "$tpath/$tname.thm" "$bpath/$bname.thm"
file copy "$tpath/$tname.thm" "$cpath/$cname.thm"
if {$crop} {
file copy "$tpath/$tname.thm" "$cpath/$cname.thm"
}
}
}
}