Updates to admin.pm to correct for multiple Contact objects, instead of a single contact object.

DBObject has ->set() added, which allows setting 1..n args in the object.

Contact stub beginning to be expanded, ->get, ->save and ->search implemented.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1588 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 52 insertions, 0 deletions

diff --git a/LedgerSMB/Contact.pm b/LedgerSMB/Contact.pm
index 473e50c5..b98a6298 100644
--- a/LedgerSMB/Contact.pm
+++ b/LedgerSMB/Contact.pm
@@ -34,3 +34,55 @@ your software.
 
 =cut
 
+package LedgerSMB::Contact;
+
+use base LedgerSMB::DBObject;
+use LedgerSMB::Error;
+
+
+sub save {
+    
+    my $self = shift @_;
+    
+    # check for the various fields being appropriately set..
+    
+    if ($self->{person_id} && $self->{contact} && $self->{contact_class}) {
+        
+        my $id = shift @ {$self->exec_method( procname => "save_contact" ) };
+        $self->merge($id);
+        return $self->{id};
+    }
+    else {
+        
+        # raise an exception
+        my $err = LedgerSMB::Error->new();
+        $err->text("Unable to save contact information");
+        $err->throw();
+    }
+}
+
+sub get {
+    
+    my $self=shift @_;
+    my $id = shift @_;
+    
+    my $result = shift @{ $self->exec_method(
+        procname => 'get',
+        args=>[$id]
+    );
+}
+
+sub search {
+    
+    my $self = shift @_;
+    my ($pattern, $offset, $limit) = @_;
+    
+    my $results = $self->exec_method( 
+        procname => 'search', 
+        args=>[$pattern, $offset, $limit] 
+    );
+    
+    return $results;
+}
+
+1;
\ No newline at end of file