Significant work on the Entity and Administrative code. It's buggy, so please test, etc. thoroughly.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1869 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 3 deletions

diff --git a/scripts/admin.pl b/scripts/admin.pl
index 18fb0ca8..2b8ca816 100644
--- a/scripts/admin.pl
+++ b/scripts/admin.pl
@@ -5,6 +5,7 @@ require 'lsmb-request.pl';
 
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::Admin;
+use LedgerSMB::DBObject::User;
 
 sub new_user {
     
@@ -23,7 +24,7 @@ sub new_user {
 
         
         my $template = LedgerSMB::Template->new( user => $user, 
-    	template => 'Admin/edit_user', language => $user->{language}, 
+    	template => 'Admin/edit_user', language => $user->{ language }, 
             format => 'HTML', path=>'UI');
     
         $template->render(
@@ -153,11 +154,14 @@ sub __default {
     
     my ($class, $request) = @_;
     
-    # TODO: check for login stuff.
     my $template;
+    my $user = LedgerSMB::DBObject::User->new(base=>$request, copy=>'all');
+    
+    $user->get_all_users();
+    
     $template = LedgerSMB::Template->new( user=>$user, 
             template=>'Admin/main', language=>$user->{language},
             format=>'HTML', path=>'UI');
-    $template->render();
+    $template->render($user);
 }
 1;
\ No newline at end of file