Lines 84-104
if (@serialnums) { # i.e. they have been flagged to generate claims
Link Here
|
84 |
my $letters = GetLetters({ module => 'claimissues' }); |
84 |
my $letters = GetLetters({ module => 'claimissues' }); |
85 |
|
85 |
|
86 |
my @missingissues; |
86 |
my @missingissues; |
87 |
my @supplierinfo; |
|
|
88 |
if ($supplierid) { |
87 |
if ($supplierid) { |
89 |
@missingissues = GetLateOrMissingIssues($supplierid); |
88 |
@missingissues = GetLateOrMissingIssues($supplierid); |
90 |
@supplierinfo=GetBookSeller($supplierid); |
|
|
91 |
} |
89 |
} |
92 |
|
90 |
|
93 |
$template->param( |
91 |
$template->param( |
94 |
suploop => $supplierlist, |
92 |
suploop => $supplierlist, |
95 |
phone => $supplierinfo[0]->{phone}, |
|
|
96 |
booksellerfax => $supplierinfo[0]->{booksellerfax}, |
97 |
bookselleremail => $supplierinfo[0]->{bookselleremail}, |
98 |
missingissues => \@missingissues, |
93 |
missingissues => \@missingissues, |
99 |
supplierid => $supplierid, |
94 |
supplierid => $supplierid, |
100 |
claimletter => $claimletter, |
95 |
claimletter => $claimletter, |
101 |
supplierloop => \@supplierinfo, |
|
|
102 |
branchloop => $branchloop, |
96 |
branchloop => $branchloop, |
103 |
csv_profiles => C4::Csv::GetCsvProfiles( "sql" ), |
97 |
csv_profiles => C4::Csv::GetCsvProfiles( "sql" ), |
104 |
letters => $letters, |
98 |
letters => $letters, |
105 |
- |
|
|