#!/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
+
my $input = CGI->new;
my $serialid = $input->param('serialid');
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 ( sort {$supplierlist{$a} cmp $supplierlist{$b} } keys %supplierlist ) {
- my ($count, @dummy) = GetLateOrMissingIssues($_, "", $order);
- push @suploop, {
- id => $_,
- name => $supplierlist{$_},
- count => $count,
- selected => $_ == $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');
@supplierinfo=GetBookSeller($supplierid);
}
+my $branchloop = GetBranchesLoop();
+unshift @$branchloop, {value=> 'all',name=>''};
+
my $preview=0;
if($op && $op eq 'preview'){
$preview = 1;
$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},
supplierid => $supplierid,
claimletter => $claimletter,
supplierloop => \@supplierinfo,
+ branchloop => $branchloop,
dateformat => C4::Context->preference("dateformat"),
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
);