From a26ee3caf4e289a749069444faa989b7bbe7bde8 Mon Sep 17 00:00:00 2001 From: aurynn_cmd 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 --- scripts/admin.pl | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'scripts/admin.pl') diff --git a/scripts/admin.pl b/scripts/admin.pl index 32413d27..2d16d369 100644 --- a/scripts/admin.pl +++ b/scripts/admin.pl @@ -12,6 +12,8 @@ sub new_user { my ($class, $request) = @_; my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + my $sal = $admin->get_salutations(); + if ($request->type() == 'POST') { # do the save stuff @@ -23,14 +25,23 @@ sub new_user { template => 'Admin/edit_user', language => $user->{language}, format => 'HTML', path=>'UI'); - $template->render($entity); + $template->render( + { + user=>$entity, + salutations=> $sal + } + ); } else { my $template = LedgerSMB::Template->new( user => $user, template => 'Admin/edit_user', language => $user->{language}, format => 'HTML', path=>'UI'); - $template->render(); + $template->render( + { + salutations=>$sal + } + ); } } @@ -154,7 +165,7 @@ sub __default { # check for login my $template; - $template = LedgerSMB::Template->new( user=>$user, + $template = LedgerSMB::Template->new( user=>$user, template=>'Admin/main', language=>$user->{language}, format=>'HTML', path=>'UI'); $template->render(); -- cgit v1.2.3