@@ -, +, @@ --- .../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, --