[Bps-public-commit] r17116 - sd/trunk/lib/App/SD/Replica

[ruz at bestpractical.com]

Author: ruz
Date: Fri Dec  5 08:47:39 2008
New Revision: 17116

Modified:
   sd/trunk/lib/App/SD/Replica/hm.pm

Log:
* allow to get info about other users

Modified: sd/trunk/lib/App/SD/Replica/hm.pm
==============================================================================
--- sd/trunk/lib/App/SD/Replica/hm.pm	(original)
+++ sd/trunk/lib/App/SD/Replica/hm.pm	Fri Dec  5 08:47:39 2008
@@ -144,9 +144,12 @@
 
 sub user_info {
     my $self = shift;
+    my %args = @_;
+    unless ( keys %args ) {
+        %args = (email => $self->hm_username);
+    }
     my $status = $self->hm->act(
-        'SearchUser',
-        email => $self->hm_username,
+        'SearchUser', %args,
     );
     die $status->{'error'} unless $status->{'success'};
     return $status->{'content'}{'search'}[0] || {};