Bug 7298: add option to export late orders as CSV

[koha.git] / serials / claims.pl

diff --git a/serials/claims.pl b/serials/claims.pl
index e51148c..5377478 100755 (executable)
--- a/serials/claims.pl
+++ b/serials/claims.pl
@@ -28,6 +28,7 @@ use C4::Bookseller qw( GetBookSeller );
 use C4::Context;
 use C4::Letters;
 use C4::Branch;    # GetBranches GetBranchesLoop
+use C4::Csv qw( GetCsvProfiles );
 
 my $input = CGI->new;
 
@@ -98,7 +99,7 @@ $template->param(
         claimletter => $claimletter,
         supplierloop => \@supplierinfo,
         branchloop   => $branchloop,
-        dateformat    => C4::Context->preference("dateformat"),
-       DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
+        csv_profiles => C4::Csv::GetCsvProfiles( "sql" ),
+        (uc(C4::Context->preference("marcflavour"))) => 1
         );
 output_html_with_http_headers $input, $cookie, $template->output;