@@ -, +, @@
---
.../prog/en/modules/serials/claims.tt | 1 +
serials/claims.pl | 11 +++++++++--
2 files changed, 10 insertions(+), 2 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
@@ -184,6 +184,7 @@
([% suploo.count %])
[% END %]
+
[% IF ( phone ) %]Phone: [% phone %][% END %]
--- a/serials/claims.pl
+++ a/serials/claims.pl
@@ -50,9 +50,11 @@ my ($template, $loggedinuser, $cookie)
# supplierlist is returned in name order
my $supplierlist = GetSuppliersWithLateIssues();
+my $allissues = 0;
for my $s (@{$supplierlist} ) {
$s->{count} = scalar GetLateOrMissingIssues($s->{id}, q{}, $order);
- if ($supplierid && $s->{id} == $supplierid) {
+ $allissues += $s->{count};
+ if ($supplierid && $s->{id} eq $supplierid) {
$s->{selected} = 1;
}
}
@@ -66,7 +68,11 @@ foreach (keys %{$letters}){
my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
my @missingissues;
my @supplierinfo;
-if ($supplierid) {
+if ( $supplierid eq 'all' ) {
+ foreach my $s (@{$supplierlist} ) {
+ push(@missingissues,GetLateOrMissingIssues($s->{id},$serialid,$order));
+ }
+} elsif ($supplierid) {
@missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
@supplierinfo=GetBookSeller($supplierid);
}
@@ -94,6 +100,7 @@ $template->param(
bookselleremail => $supplierinfo[0]->{bookselleremail},
preview => $preview,
missingissues => \@missingissues,
+ allissues => $allissues,
supplierid => $supplierid,
claimletter => $claimletter,
supplierloop => \@supplierinfo,
--