1 files changed, 16 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/User.pm b/LedgerSMB/DBObject/User.pm
index 7682acbe..0ca6bcfc 100644
--- a/LedgerSMB/DBObject/User.pm
+++ b/LedgerSMB/DBObject/User.pm
@@ -141,4 +141,20 @@ sub roles {
     
 }
 
+sub save_contact {
+    
+    my $self = shift @_;
+    my $id = shift @_;
+    my $contact = shift @_;
+    
+    my @ret = $self->exec_method(funcname=>"person__save_contact", 
+        args=>[
+            $self->{entity_id},
+            $self->{contacts}->[$id]->{contact_class},
+            $self->{contacts}->[$id]->{contact},
+            $contact
+        ]
+    );
+}
+
 1;