+sub sort {
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %temp_hash;
+
+ croak ("Delivery Order needs to be saved") unless $form->{id};
+
+ # hashify partnumbers, positions. key is delivery_order_items_id
+ for my $i (1 .. ($form->{rowcount}) ) {
+ $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
+ }
+ # naturally sort partnumbers and get a sorted array of doi_ids
+ my @sorted_doi_ids = sort { ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
+
+ #$main::lxdebug->message(0, 'sortiert, vorher :' . Dumper(%temp_hash));
+ #$main::lxdebug->message(0, 'sortiert, nachher:' . Dumper(@sorted_doi_ids));
+
+ my $new_number = 1;
+ for (@sorted_doi_ids) {
+ # reposition old runningnumber with the new order 1 .. n
+ $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
+
+ #$main::lxdebug->message(0, 'hier jetzt:' . 'ferner' . $temp_hash{$_}->{runningnumber} .
+ # 'mit' . $form->{"runningnumber_{$temp_hash{$_}->{runningnumber}}"}); #" = $new_number;
+
+ $new_number++;
+ }
+ # update or save directly
+ # update_delivery_order;
+ $main::lxdebug->leave_sub();
+ save();
+}