Here's a much simpler patch than the one I submitted yesterday.
The user selection combo in the View History dialog lists all the users
for whom there are logs, not just the users in the current user's
contact list.
--Gabriel
________________________________________________________________________
Gabriel Gambetta
Mystery Studio - http://www.mysterystudio.com
Gabriel's Stuff - http://www.mysterystudio.com/gabriel
Index: loging.tcl
===================================================================
--- loging.tcl (revisión: 8231)
+++ loging.tcl (copia de trabajo)
@@ -413,13 +413,17 @@
global log_dir langenc logvar
- #Get all the contacts
- foreach contact [::abook::getAllContacts] {
- #Selects the contacts who are in our list and adds them to the contact_list
- if {[string last "FL" [::abook::getContactData $contact lists]] != -1} {
- lappend contact_list $contact
+ # Get all the contacts with logs
+ set lDirs [concat ${log_dir} [glob -nocomplain -types d "${log_dir}/*"]]
+
+ foreach sDir $lDirs {
+ foreach sLogFile [glob -tails -nocomplain -types f -directory ${sDir} "*.log"] {
+ set sLogFile [ string range $sLogFile 0 [ expr { [string length $sLogFile] - 5 } ] ]
+ set hNames($sLogFile) 1
}
}
+
+ set contact_list [ array names hNames ]
#Sorts contacts
set sortedcontact_list [lsort -dictionary $contact_list]
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
