diff options
author | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-19 23:52:32 +0000 |
---|---|---|
committer | aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-19 23:52:32 +0000 |
commit | a26ee3caf4e289a749069444faa989b7bbe7bde8 (patch) | |
tree | 61d44c1a7ea4a07d4ef4520db7b52ac1bc9538f6 /LedgerSMB/DBObject | |
parent | 0d4b0b2cf4be896167ff411d22125c378573b762 (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.pm | 12 |
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 |