#!/usr/bin/perl
+# Parts Copyright 2010 Biblibre
+
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
use C4::Serials;
use C4::Acquisition;
use C4::Output;
-use C4::Bookseller;
+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;
my $supplierid = $input->param('supplierid');
my $suppliername = $input->param('suppliername');
my $order = $input->param('order');
-my $supplierlist = GetSuppliersWithLateIssues();
-if ($supplierid) {
- foreach my $s ( @{$supplierlist} ) {
- if ($s->{id} == $supplierid ) {
- $s->{selected} = 1;
- last;
- }
- }
-}
# open template first (security & userenv set here)
my ($template, $loggedinuser, $cookie)
debug => 1,
});
-my @suploop;
-for my $s ( sort {$a->{name} cmp $b->{name} } @$supplierlist ) {
- my @list = GetLateOrMissingIssues($s, "", $order);
- push @suploop, {
- %$s,
- count => scalar(@list),
- selected => $s->{id} == $supplierid,
- };
+# supplierlist is returned in name order
+my $supplierlist = GetSuppliersWithLateIssues();
+for my $s (@{$supplierlist} ) {
+ $s->{count} = scalar GetLateOrMissingIssues($s->{id}, q{}, $order);
+ if ($supplierid && $s->{id} == $supplierid) {
+ $s->{selected} = 1;
+ }
}
my $letters = GetLetters('claimissues');
$template->param('letters'=>\@letters,'letter'=>$letter);
$template->param(
order =>$order,
- suploop => \@suploop,
+ suploop => $supplierlist,
phone => $supplierinfo[0]->{phone},
booksellerfax => $supplierinfo[0]->{booksellerfax},
bookselleremail => $supplierinfo[0]->{bookselleremail},
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;