Explorar o código

Update BT.Seen.tcl

Florian %!s(int64=8) %!d(string=hai) anos
pai
achega
7e84459cb2
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  1. 3 3
      BlackTools2.5.2/BlackTools/Modules/BT.Seen.tcl

+ 3 - 3
BlackTools2.5.2/BlackTools/Modules/BT.Seen.tcl

@@ -480,7 +480,7 @@ if {[string equal -nocase $read_type "LASTSRC"] && [string equal -nocase $chan $
 	set read_who_h [lindex [split $line] 3]
 	set read_time [lindex [split $line] 4]
 	set read_time [clock format $read_time -format %D-%H:%M:%S]
-	blacktools:tell $nick "prv" "" $chan $chan1 seen.39 "$read_who $read_who_h $read_time"
+	blacktools:tell $nick "prv" "" $chan $chan1 seen.39 "$read_who!$read_who_h $read_time $nick"
 	seen:reply:remove $read_src $chan
 		}	
 	}
@@ -602,7 +602,7 @@ if {$n != ""} {
 	set seensort($tm) $line_num
 	}
 }
-	foreach line [lsort -integer -decreasing -unique [array names seensort]] {
+foreach line [lsort -integer -decreasing -unique [array names seensort]] {
 	lappend top_seenlist $seensort($line)
 }
 	set split_seenlist [split $top_seenlist " "]
@@ -828,4 +828,4 @@ if {[string equal -nocase $prv "prv"]} {
 ##############
 #########################################################################
 ##   END                                                               ##
-#########################################################################
+#########################################################################