use SL::OE;
use SL::IR;
use SL::IS;
+use SL::MoreCommon qw(ary_diff);
use SL::PE;
use SL::ReportGenerator;
use List::Util qw(max reduce sum);
$form->{simple_save} = 1;
if(!$form->{print_and_save}) {
- set_headings("edit");
- &update;
+ delete @{$form}{ary_diff([keys %{ $form }], [qw(login stylesheet id script type)])};
+ edit();
exit;
}
$lxdebug->leave_sub();