|
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 |
- |
|
|