projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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::Context;
use C4::Letters;
use C4::Branch; # GetBranches GetBranchesLoop
+use C4::Csv qw( GetCsvProfiles );
my $input = CGI->new;
my $input = CGI->new;
@@
-72,7
+73,6
@@
if ($supplierid) {
}
my $branchloop = GetBranchesLoop();
}
my $branchloop = GetBranchesLoop();
-unshift @$branchloop, {value=> 'all',name=>''};
my $preview=0;
if($op && $op eq 'preview'){
my $preview=0;
if($op && $op eq 'preview'){
@@
-98,6
+98,7
@@
$template->param(
claimletter => $claimletter,
supplierloop => \@supplierinfo,
branchloop => $branchloop,
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;
(uc(C4::Context->preference("marcflavour"))) => 1
);
output_html_with_http_headers $input, $cookie, $template->output;