diff src/perl.c @ 5068:b37d7d09ec83

[gaim-migrate @ 5419] logout icons committer: Tailor Script <tailor@pidgin.im>
author Nathan Walp <nwalp@pidgin.im>
date Mon, 07 Apr 2003 23:17:27 +0000
parents f0140b7e10a0
children
line wrap: on
line diff
--- a/src/perl.c	Mon Apr 07 20:08:57 2003 +0000
+++ b/src/perl.c	Mon Apr 07 23:17:27 2003 +0000
@@ -712,7 +712,7 @@
 			if(!GAIM_BLIST_NODE_IS_BUDDY(bnode))
 				continue;
 			b = (struct buddy *)bnode;
-			if (b->account == gc->account && b->present) XST_mPV(i++, b->name);
+			if (b->account == gc->account && GAIM_BUDDY_IS_ONLINE(b)) XST_mPV(i++, b->name);
 		}
 	}
 	XSRETURN(i);
@@ -785,7 +785,7 @@
 		XSRETURN(0);
 	XST_mPV(0, buddy->name);
 	XST_mPV(1, gaim_get_buddy_alias(buddy));
-	XST_mPV(2, buddy->present ? "Online" : "Offline");
+	XST_mPV(2, GAIM_BUDDY_IS_ONLINE(buddy) ? "Online" : "Offline");
 	XST_mIV(3, buddy->evil);
 	XST_mIV(4, buddy->signon);
 	XST_mIV(5, buddy->idle);