View | Details | Raw Unified | Return to bug 8740
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt (+1 lines)
Lines 184-189 Link Here
184
	                ([% suploo.count %])
184
	                ([% suploo.count %])
185
	            </option>
185
	            </option>
186
	        [% END %]
186
	        [% END %]
187
		    <option value="all">All ([% allissues %])</option>
187
	    </select>
188
	    </select>
188
        <input type="submit" value="OK" />
189
        <input type="submit" value="OK" />
189
        [% IF ( phone ) %]Phone: [% phone %][% END %]
190
        [% IF ( phone ) %]Phone: [% phone %][% END %]
(-)a/serials/claims.pl (-2 / +8 lines)
Lines 50-57 my ($template, $loggedinuser, $cookie) Link Here
50
50
51
# supplierlist is returned in name order
51
# supplierlist is returned in name order
52
my $supplierlist = GetSuppliersWithLateIssues();
52
my $supplierlist = GetSuppliersWithLateIssues();
53
my $allissues = 0;
53
for my $s (@{$supplierlist} ) {
54
for my $s (@{$supplierlist} ) {
54
    $s->{count} = scalar  GetLateOrMissingIssues($s->{id}, q{}, $order);
55
    $s->{count} = scalar  GetLateOrMissingIssues($s->{id}, q{}, $order);
56
    $allissues += $s->{count};
55
    if ($supplierid && $s->{id} == $supplierid) {
57
    if ($supplierid && $s->{id} == $supplierid) {
56
        $s->{selected} = 1;
58
        $s->{selected} = 1;
57
    }
59
    }
Lines 66-72 foreach (keys %{$letters}){ Link Here
66
my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
68
my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
67
my  @missingissues;
69
my  @missingissues;
68
my @supplierinfo;
70
my @supplierinfo;
69
if ($supplierid) {
71
if ( $supplierid eq 'all' ) {
72
    foreach my $s (@{$supplierlist} ) {
73
        push(@missingissues,GetLateOrMissingIssues($s->{id},$serialid,$order));
74
    }
75
} elsif ($supplierid) {
70
    @missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
76
    @missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
71
    @supplierinfo=GetBookSeller($supplierid);
77
    @supplierinfo=GetBookSeller($supplierid);
72
}
78
}
Lines 94-99 $template->param( Link Here
94
        bookselleremail => $supplierinfo[0]->{bookselleremail},
100
        bookselleremail => $supplierinfo[0]->{bookselleremail},
95
        preview => $preview,
101
        preview => $preview,
96
        missingissues => \@missingissues,
102
        missingissues => \@missingissues,
103
        allissues => $allissues,
97
        supplierid => $supplierid,
104
        supplierid => $supplierid,
98
        claimletter => $claimletter,
105
        claimletter => $claimletter,
99
        supplierloop => \@supplierinfo,
106
        supplierloop => \@supplierinfo,
100
- 

Return to bug 8740