-sub e_mail {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
-
- check_oe_access();
-
- $form->mtime_ischanged('oe','mail');
- $form->{print_and_save} = 1;
-
- my $saved_form = save_form();
-
- save();
-
- restore_form($saved_form, 0, qw(id ordnumber quonumber));
-
- edit_e_mail();
-
- $main::lxdebug->leave_sub();
-}
-