X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Finvoice.pl;h=e38e02db882cb24216997323c47bcf97c4ce6141;hb=4ce18e2a86b0af7548caaeaf26f7571d2244e35e;hp=1b6d97c72fe8b6692a977f8581d08d95a5b9e8df;hpb=b2a77e87f826d97a672a4410e54072bf726d2a46;p=koha_fer

diff --git a/acqui/invoice.pl b/acqui/invoice.pl
index 1b6d97c72f..e38e02db88 100755
--- a/acqui/invoice.pl
+++ b/acqui/invoice.pl
@@ -86,6 +86,14 @@ elsif ( $op && $op eq 'mod' ) {
     }
     $template->param( modified => 1 );
 }
+elsif ( $op && $op eq 'delete' ) {
+    DelInvoice($invoiceid);
+    my $referer = $input->param('referer') || 'invoices.pl';
+    if ($referer) {
+        print $input->redirect($referer);
+        exit 0;
+    }
+}
 
 my $details     = GetInvoiceDetails($invoiceid);
 my $bookseller  = GetBookSellerFromId( $details->{booksellerid} );