summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/admin.pl17
1 files changed, 4 insertions, 13 deletions
diff --git a/scripts/admin.pl b/scripts/admin.pl
index 2d16d369..9947b501 100644
--- a/scripts/admin.pl
+++ b/scripts/admin.pl
@@ -9,12 +9,14 @@ use LedgerSMB::DBObject::Admin;
sub new_user {
# uses the same page as create_user, only pre-populated.
- my ($class, $request) = @_;
+ #my ($class, $request) = @_;
+ my $class = shift @_;
+ my $request = shift @_;
my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all');
my $sal = $admin->get_salutations();
- if ($request->type() == 'POST') {
+ if ($request->type() eq 'POST') {
# do the save stuff
@@ -132,17 +134,6 @@ sub delete_user {
$template->render($status);
}
-sub new_user {
-
- my ($class, $request) = @_;
-
- my $template = LedgerSMB::Template->new( user=>$user,
- template=>'Admin/edit_user', language=>$user->{language},
- format=>'HTML', path=>'UI');
-
- $template->render();
-}
-
sub new_group {
my ($class, $request) = @_;