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

[ruz at bestpractical.com]

Author: ruz
Date: Mon Nov 17 11:43:22 2008
New Revision: 16874

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

Log:
* add user_info method so we can check if user is pro or not

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	Mon Nov 17 11:43:22 2008
@@ -142,6 +142,16 @@
 
 }
 
+sub user_info {
+    my $self = shift;
+    my $status = $self->hm->act(
+        'SearchUser',
+        email => $self->hm_username,
+    );
+    die $status->{'error'} unless $status->{'success'};
+    return $status->{'content'}{'search'}[0] || {};
+}
+
 sub _integrate_change {
     my $self = shift;
     my ( $change, $changeset ) = validate_pos(