[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/common/co...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/09/25 21:35:55

Modified files:
        distrib        : ChangeLog 
        src/daemon/common: commonSources.ml 

Log message:
        patch #5422

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1025&r2=1.1026
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonSources.ml?cvsroot=mldonkey&r1=1.35&r2=1.36

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1025
retrieving revision 1.1026
diff -u -b -r1.1025 -r1.1026
--- distrib/ChangeLog   23 Sep 2006 22:35:12 -0000      1.1025
+++ distrib/ChangeLog   25 Sep 2006 21:35:55 -0000      1.1026
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2006/09/25
+5422: Command "sources": Display only downloading files
+
 2006/09/24
 5405: BT: Use field "encoding" from .torrent to convert strings to UTF-8
 5419: EDK: Remove titanesel.ws links

Index: src/daemon/common/commonSources.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonSources.ml,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- src/daemon/common/commonSources.ml  8 Apr 2006 02:16:21 -0000       1.35
+++ src/daemon/common/commonSources.ml  25 Sep 2006 21:35:55 -0000      1.36
@@ -531,7 +531,7 @@
           Sort.list
             (fun f1 f2 ->
               file_best_name (f1.manager_file ()) < file_best_name 
(f2.manager_file ())
-            ) !file_sources_managers
+            ) (List.filter (fun m -> file_state (m.manager_file ()) = 
FileDownloading) !file_sources_managers)
         in
         (* Files *)
         List.iter (fun m ->