Bläddra i källkod

Update BT.AutoUpdate.tcl

Daniel Voipan 5 år sedan
förälder
incheckning
949cef7bfc
1 ändrade filer med 0 tillägg och 3 borttagningar
  1. 0 3
      BlackTools/Modules/BT.AutoUpdate.tcl

+ 0 - 3
BlackTools/Modules/BT.AutoUpdate.tcl

@@ -127,9 +127,6 @@ proc blacktools:update_note_check {hand num} {
     global black
     global black
     set found_it 0
     set found_it 0
     set file [open $black(notes_file) "r"]
     set file [open $black(notes_file) "r"]
-	set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
-	set temp "$black(tempdir)/notes_temp.$timestamp"
-	set tempwrite [open $temp w]
 while {[gets $file line] != -1} {
 while {[gets $file line] != -1} {
     set handle [lindex [split $line] 4]
     set handle [lindex [split $line] 4]
 if {[string equal -nocase $handle $hand]} {
 if {[string equal -nocase $handle $hand]} {