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 | |
| 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')
| -rw-r--r-- | LedgerSMB/DBObject.pm | 5 | ||||
| -rw-r--r-- | LedgerSMB/DBObject/Admin.pm | 12 |
2 files changed, 17 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 13e31230..097b85dc 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -27,6 +27,11 @@ this way as is any information that is needed. copies @attrs from $hashref to $self. +=item set (@attrs) + +Copies the given key=>vars to $self. Allows for finer control of +merging hashes into self. + =back =head1 Copyright (C) 2007, The LedgerSMB core team. 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 |