summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject
diff options
context:
space:
mode:
authoraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-19 23:52:32 +0000
committeraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-19 23:52:32 +0000
commita26ee3caf4e289a749069444faa989b7bbe7bde8 (patch)
tree61d44c1a7ea4a07d4ef4520db7b52ac1bc9538f6 /LedgerSMB/DBObject
parent0d4b0b2cf4be896167ff411d22125c378573b762 (diff)
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
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r--LedgerSMB/DBObject/Admin.pm12
1 files changed, 12 insertions, 0 deletions
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