[Tikiwiki-cvs] tiki/lib tikilib.php,1.631,1.632

[<lfa...@us...>]

Update of /cvsroot/tikiwiki/tiki/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15320/lib

Modified Files:
	tikilib.php 
Log Message:
mod-instant_messaging already shows online friends and refresh real-time


Index: tikilib.php
===================================================================
RCS file: /cvsroot/tikiwiki/tiki/lib/tikilib.php,v
retrieving revision 1.631
retrieving revision 1.632
diff -u -d -r1.631 -r1.632
--- tikilib.php	24 Jan 2006 22:16:38 -0000	1.631
+++ tikilib.php	12 Feb 2006 22:19:31 -0000	1.632
@@ -2058,6 +2058,24 @@
 	return $retval;
 
     }
+    function list_online_friends($user)
+    {
+	global $userlib;
+
+	$bindvars=array($user);
+
+	// TODO: same as list_users
+	$query = "select u.*, p.`value` as realName from `tiki_friends` as f, `users_users` as u, `tiki_sessions` s left join `tiki_user_preferences` p on u.`login`=p.`user` and p.`prefName` = 'realName' where u.`login`=f.`friend` and s.`user`=u.`login` and f.`user`=? and f.`user` <> f.`friend`";
+
+	$result = $this->query($query,$bindvars);
+
+	$ret = Array();
+	while ($res = $result->fetchRow()) {
+	    $ret[] = $res;
+	}
+	return $ret;
+    }
+
 
     function verify_friendship($user, $friend)
     {