X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=serials%2Fclaims.pl;h=13167d727fb9e89f4692ce404aa8b6fd252be7ba;hb=5d6c092921919526ade501facb1220f8a108a08f;hp=1b97a1b23275a7af843ce9a906198f78d65a7561;hpb=7183a241c4f696c0f7cea9868ee82573328fe98a;p=koha_fer

diff --git a/serials/claims.pl b/serials/claims.pl
index 1b97a1b232..13167d727f 100755
--- 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;
 
@@ -57,14 +58,9 @@ for my $s (@{$supplierlist} ) {
     }
 }
 
-my $letters = GetLetters('claimissues');
-my @letters;
-foreach (keys %{$letters}){
-    push @letters ,{code=>$_,name=> $letters->{$_}};
-}
+my $letters = GetLetters({ module => 'claimissues' });
 
-my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
-my  @missingissues;
+my @missingissues;
 my @supplierinfo;
 if ($supplierid) {
     @missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
@@ -72,7 +68,6 @@ if ($supplierid) {
 }
 
 my $branchloop = GetBranchesLoop();
-unshift @$branchloop, {value=> 'all',name=>''};
 
 my $preview=0;
 if($op && $op eq 'preview'){
@@ -85,7 +80,7 @@ if($op && $op eq 'preview'){
         ### $cntupdate SHOULD be equal to scalar(@$serialnums)
     }
 }
-$template->param('letters'=>\@letters,'letter'=>$letter);
+
 $template->param(
         order =>$order,
         suploop => $supplierlist,
@@ -98,8 +93,8 @@ $template->param(
         claimletter => $claimletter,
         supplierloop => \@supplierinfo,
         branchloop   => $branchloop,
-        dateformat    => C4::Context->preference("dateformat"),
-    	DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
+        csv_profiles => C4::Csv::GetCsvProfiles( "sql" ),
+        letters => $letters,
         (uc(C4::Context->preference("marcflavour"))) => 1
         );
 output_html_with_http_headers $input, $cookie, $template->output;