From a26ee3caf4e289a749069444faa989b7bbe7bde8 Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 19 Sep 2007 23:52:32 +0000
Subject: Modifications to make New User screens under the new Admin work.
 Minor documentation update on DBObject. Creation of get_salutations function
 in LedgerSMB::DBObject::Admin

Expansion of edit_user html.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1635 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Admin.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'LedgerSMB/DBObject')

diff --git a/LedgerSMB/DBObject/Admin.pm b/LedgerSMB/DBObject/Admin.pm
index bccbb16d..74ee238b 100644
--- a/LedgerSMB/DBObject/Admin.pm
+++ b/LedgerSMB/DBObject/Admin.pm
@@ -181,4 +181,16 @@ sub delete_group {
     }
 }
 
+sub get_salutations {
+    
+    my $self = shift;
+    
+    my $sth = $self->{dbh}->prepare("SELECT * FROM salutation ORDER BY id ASC");
+    
+    $sth->execute();
+    
+    # Returns a list of hashrefs
+    return $sth->fetchall_arrayref( {} );
+}
+
 1;
\ No newline at end of file
-- 
cgit v1.2.3