Bug 24711: Don't add logout input to login form

[koha-ffzg.git] / acqui / lateorders.pl

diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl
index 5232dd7..5dc9ea6 100755 (executable)
--- a/acqui/lateorders.pl
+++ b/acqui/lateorders.pl
@@ -112,39 +112,17 @@ if ($op and $op eq "send_alert"){
         }
     };
 
-    if ( $@ ) {
-        $template->param(error_claim => $@);
-    } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) {
+    if ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) {
         $template->{VARS}->{'error_claim'} = "no_email";
     } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_order_selected"){
         $template->{VARS}->{'error_claim'} = "no_order_selected";
+    } elsif ( $@ or ref $err and exists $err->{error} ) {
+        $template->param(error_claim => $@ || $err->{error});
     } else {
         $template->{VARS}->{'info_claim'} = 1;
     }
 }
 
-if ($op && $op eq "save"){
-    my $listorders;
-    my @orders = $input->param;
-
-    foreach my $order (@orders){
-        if ( $order ne "op"){
-            my @split = split (/_/,$order);
-            $listorders->{$split[0]}->{$split[1]} = $input->param($order);
-        }
-    }
-
-    my $orders_rs = Koha::Acquisition::Orders->search({ ordernumber => [ keys %$listorders ] });
-    while ( my $order = $orders_rs->next ) {
-        my $internalnote = $listorders->{$order->ordernumber}->{i};
-        my $vendornote   = $listorders->{$order->ordernumber}->{v};
-
-        $order->order_internalnote($internalnote) if defined $internalnote;
-        $order->order_vendornote($vendornote)     if defined $vendornote;
-        $order->store;
-    }
-}
-
 my @parameters = ( $delay );
 push @parameters, $estimateddeliverydatefrom_dt
     ? $estimateddeliverydatefrom_dt->ymd()