From aa68c20632ccd2cc8b9cc99e30730d0e4d1b5eb1 Mon Sep 17 00:00:00 2001
From: Eric Garcia <cubingguy714@gmail.com>
Date: Wed, 31 Jul 2024 18:31:53 +0000
Subject: [PATCH] Bug 37411: Fixed exporting to CSV file

To test:
1. Acquistions -> Budgets -> Funds -> Planning, select any option
2. In the toolbar see Export, and click Submit and see a 500 error
3. Apply patch, restart_all
4. Repeat steps 1-2
5. Notice the 500 error is gone and the CSV is exported properly

Signed-off-by: Roman Dolny <roman.dolny@jezuici.pl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 94890a1e55735504b2f405c4b82793e3a2e44fc3)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 3c8539bc6b4952922fe80c6e6714efb85b9ed9f1)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 admin/aqplan.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index 0ae2a42d2b..026edbab51 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -400,6 +400,7 @@ foreach my $budget (@budgets) {
 
 if ( $output eq "file" ) {
     _print_to_csv(\@authvals_row, \@budget_lines);
+    exit();
 }
 
 $template->param(
-- 
2.39.5