diff options
Diffstat (limited to 'scripts/admin.pl')
| -rw-r--r-- | scripts/admin.pl | 155 |
1 files changed, 155 insertions, 0 deletions
diff --git a/scripts/admin.pl b/scripts/admin.pl new file mode 100644 index 00000000..64fefcb9 --- /dev/null +++ b/scripts/admin.pl @@ -0,0 +1,155 @@ +package LedgerSMB::Scripts::Admin; + +use LedgerSMB::Template; +use LedgerSMB::DBObject::Admin; + +sub new_user { + + # uses the same page as create_user, only pre-populated. + my ($class, $request) = @_; + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + + if ($request->type() == 'POST') { + + # do the save stuff + + my $entity = $admin->save_user(); + + + my $template = LedgerSMB::Template->new( user => $user, + template => 'admin/edit_user.html', language => $user->{language}, + format => 'html'); + + $template->render($entity); + } else { + + my $template = LedgerSMB::Template->new( user => $user, + template => 'admin/edit_user.html', language => $user->{language}, + format => 'html'); + + $template->render(); + } +} + +sub edit_user { + + # uses the same page as create_user, only pre-populated. + my ($class, $request) = @_; + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'user_id'); + + my $edited_user = $admin->get_entire_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->render($edited_user, $all_roles); +} + +sub edit_group { + + my ($class, $request) = @_; + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + + my $all_roles = $admin->role_list(); + my $group = $admin->get_group(); + + my $template = LedgerSMB::Template->new( user => $user, + template => 'admin/edit_group.html', language => $user->{language}, + format => 'html'); + + $template->render($all_roles); +} + +sub create_group { + + my ($class, $request) = @_; + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + + my $all_roles = $admin->role_list(); + + my $template = LedgerSMB::Template->new( user => $user, + template => 'admin/edit_group.html', language => $user->{language}, + format => 'html'); + + $template->render($all_roles); +} + +sub delete_group { + + my ($class, $request) = @_; + + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + + # requires the field modifying_user to be set. + + my $status = $admin->delete_group($request->{modifying_user}); + + # status can either be 1, or an error. + # if there's an error, $status->throw() is called by admin.pm. Or possibly + # in the template itself. + + my $template = LedgerSMB::Template->new ( user=>$user, + template=>'admin/delete_group.html', language=>$user->{language}, + format=>'html'); + + $template->render($status); +} + +sub delete_user { + + my ($class, $request) = @_; + + my $admin = LedgerSMB::DBObject::Admin->new(base=>$request, copy=>'all'); + + # requires the field modifying_user to be set. + + my $status = $admin->delete_user($request->{modifying_user}); + + # status can either be 1, or an error. + # if there's an error, $status->throw() is called by admin.pm. Or possibly + # in the template itself. + + my $template = LedgerSMB::Template->new ( user=>$user, + template=>'admin/delete_user.html', language=>$user->{language}, + format=>'html'); + + $template->render($status); +} + +sub new_user { + + my ($class, $request) = @_; + + my $template = LedgerSMB::Template->new( user=>$user, + template=>'admin/new_user.html', language=>$user->{language}, + format=>'html'); + + $template->render(); +} + +sub new_group { + + my ($class, $request) = @_; + + my $template = LedgerSMB::Template->new( user=>$user, + template=>'admin/new_group.html', language=>$user->{language}, + format=>'html'); + + $template->render(); +} + +sub __default { + + my ($class, $request) = @_; + + # check for login + my $template; + $template = LedgerSMB::Template->new( user=>$user, + template=>'admin/main.html', language=>$user->{language}, + format=>'html'); + $template->render(); +} + +1;
\ No newline at end of file |