1 files changed, 8 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm
index 5ab869b0..e16e5dea 100644
--- a/LedgerSMB/DBObject/Admin.pm
+++ b/LedgerSMB/DBObject/Admin.pm
@@ -264,4 +264,11 @@ sub get_countries {
     $self->debug({file => '/tmp/user'});
     return $self->{countries};
 }
-1;
+sub get_contact_classes {
+    
+    my $self = shift @_;
+    my $sth = $self->{dbh}->prepare("select id, class as classname from contact_class");
+    my $code = $sth->execute();
+    return $sth->fetchall_arrayref({});
+}
+1;
+\ No newline at end of file