From 81efe9604a08461f4a6847b02b4d13305546296c Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 17 Sep 2007 20:00:05 +0000
Subject: New admin  main.html template and initial controller code working.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1625 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/admin.pl | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'scripts/admin.pl')

diff --git a/scripts/admin.pl b/scripts/admin.pl
index c1706aad..7daf463b 100644
--- a/scripts/admin.pl
+++ b/scripts/admin.pl
@@ -20,15 +20,15 @@ sub new_user {
 
         
         my $template = LedgerSMB::Template->new( user => $user, 
-    	template => 'admin/edit_user.html', language => $user->{language}, 
-            format => 'HTML');
+    	template => 'Admin/edit_user', language => $user->{language}, 
+            format => 'HTML', path=>'UI');
     
         $template->render($entity);
     } else {
     
         my $template = LedgerSMB::Template->new( user => $user, 
-    	template => 'admin/edit_user.html', language => $user->{language}, 
-            format => 'HTML');
+    	template => 'Admin/edit_user', language => $user->{language}, 
+            format => 'HTML', path=>'UI');
     
         $template->render();
     }
@@ -44,8 +44,8 @@ sub edit_user {
     my $all_roles = $admin->role_list();
     
     my $template = LedgerSMB::Template->new( user => $user, 
-	template => 'admin/edit_user.html', language => $user->{language}, 
-        format => 'HTML');
+	template => 'Admin/edit_user', language => $user->{language}, 
+        format => 'HTML', path=>'UI');
     
     $template->render($edited_user, $all_roles);
 }
@@ -59,8 +59,8 @@ sub edit_group {
     my $group = $admin->get_group();
     
     my $template = LedgerSMB::Template->new( user => $user, 
-	template => 'admin/edit_group.html', language => $user->{language}, 
-        format => 'HTML');
+	template => 'Admin/edit_group', language => $user->{language}, 
+        format => 'HTML', path=>'UI');
         
     $template->render($all_roles);    
 }
@@ -73,8 +73,8 @@ sub create_group {
     my $all_roles = $admin->role_list();
     
     my $template = LedgerSMB::Template->new( user => $user, 
-	template => 'admin/edit_group.html', language => $user->{language}, 
-        format => 'HTML');
+	template => 'Admin/edit_group', language => $user->{language}, 
+        format => 'HTML', path=>'UI');
         
     $template->render($all_roles);
 }
@@ -94,8 +94,8 @@ sub delete_group {
     # in the template itself.
     
     my $template = LedgerSMB::Template->new ( user=>$user, 
-        template=>'admin/delete_group.html', language=>$user->{language}, 
-        format=>'html');    
+        template=>'Admin/delete_group', language=>$user->{language}, 
+        format=>'HTML', path=>'UI');    
         
     $template->render($status);    
 }
@@ -115,8 +115,8 @@ sub delete_user {
     # in the template itself.
     
     my $template = LedgerSMB::Template->new ( user=>$user, 
-        template=>'admin/delete_user.html', language=>$user->{language}, 
-        format=>'html');
+        template=>'Admin/delete_user', language=>$user->{language}, 
+        format=>'HTML', path=>'UI');
         
     $template->render($status);
 }
@@ -126,8 +126,8 @@ sub new_user {
     my ($class, $request) = @_;
     
     my $template = LedgerSMB::Template->new( user=>$user, 
-        template=>'admin/new_user.html', language=>$user->{language},
-        format=>'html');
+        template=>'Admin/new_user', language=>$user->{language},
+        format=>'HTML', path=>'UI');
     
     $template->render();
 }
@@ -137,8 +137,8 @@ sub new_group {
     my ($class, $request) = @_;
     
     my $template = LedgerSMB::Template->new( user=>$user, 
-        template=>'admin/new_group.html', language=>$user->{language},
-        format=>'html');
+        template=>'Admin/new_group', language=>$user->{language},
+        format=>'HTML', path=>'UI');
     
     $template->render();
 }
@@ -150,8 +150,8 @@ sub __default {
     # check for login
     my $template;
         $template = LedgerSMB::Template->new( user=>$user, 
-            template=>'admin/main.html', language=>$user->{language},
-            format=>'html');
+            template=>'Admin/main', language=>$user->{language},
+            format=>'HTML', path=>'UI');
     $template->render();
 }
 
-- 
cgit v1.2.3