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

1 files changed, 14 insertions, 3 deletions

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();