-sub yes {
- call_sub($main::form->{yes_nextsub});
-}
-
-sub no {
- call_sub($main::form->{no_nextsub});
-}
-
-sub add {
- call_sub($main::form->{add_nextsub});
-}
-
-sub edit {
- my $form = $main::form;
-
- $form->{edit_nextsub} ||= 'edit_user';
-
- call_sub($form->{edit_nextsub});
-}
-
-sub delete {
- my $form = $main::form;
-
- $form->{delete_nextsub} ||= 'delete_user';
-
- call_sub($form->{delete_nextsub});
-}
-
-sub save {
- my $form = $main::form;
-
- $form->{save_nextsub} ||= 'save_user';
-
- call_sub($form->{save_nextsub});
-}
-
-sub back {
- call_sub($main::form->{back_nextsub});
-}
-
-sub dispatcher {
- my $form = $main::form;
- my $locale = $main::locale;
-
- foreach my $action (qw(create_standard_group dont_create_standard_group
- save_user delete_user save_user_as_new)) {
- if ($form->{"action_${action}"}) {
- call_sub($action);
- return;
- }
- }
-
- call_sub($form->{default_action}) if ($form->{default_action});
-
- $form->error($locale->text('No action defined.'));
-}
-
-sub _search_templates {
- my %templates = SL::Template->available_templates;
-
- return ($templates{print_templates}, $templates{master_templates});
-}
-