Add news methods before trying inheritance

git-svn-id: https://svn.geant.net/GEANT/edugain_testidp_account_manager/trunk@73 047e039d-479c-447e-8a29-aa6bf4a09bab

lib/IdPAccountManager/ServiceProvider.pm

@@ -39,6 +39,13 @@ sub new {
     return $self;
 }
 
+sub load {
+    my $self = shift;
+    my %args = @_;
+    
+    return $self->{'persistent'}->load(%args);
+}
+
 sub get {
     my $self = shift;
     my $attribute_name = shift;
@@ -70,8 +77,8 @@ sub print {
     my $self = shift;
     my $fd = shift || \*STDOUT;
     
-    printf $fd "ServiceProvider ID=%s; entityid=%s; displayname=%s\n",
-            $self->get('id'), $self->get('entityid'), $self->get('displayname');
+    printf $fd "ServiceProvider ID=%s; entityid=%s; displayname=%s; contacts=%s\n",
+            $self->get('id'), $self->get('entityid'), $self->get('displayname'), $self->get('contacts');
 
     return 1.
 }