Bug 11957: reomve disused sample_only_param_tables.sql

[koha.git] / serials / claims.pl

diff --git a/serials/claims.pl b/serials/claims.pl
index 5434b2a..c826804 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;
 
@@ -72,7 +73,6 @@ if ($supplierid) {
 }
 
 my $branchloop = GetBranchesLoop();
-unshift @$branchloop, {value=> 'all',name=>''};
 
 my $preview=0;
 if($op && $op eq 'preview'){
@@ -98,6 +98,7 @@ $template->param(
         claimletter => $claimletter,
         supplierloop => \@supplierinfo,
         branchloop   => $branchloop,
+        csv_profiles => C4::Csv::GetCsvProfiles( "sql" ),
         (uc(C4::Context->preference("marcflavour"))) => 1
         );
 output_html_with_http_headers $input, $cookie, $template->output;