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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt (-3 lines)
Lines 198-206 Link Here
198
	        [% END %]
198
	        [% END %]
199
	    </select>
199
	    </select>
200
        <input type="submit" value="OK" />
200
        <input type="submit" value="OK" />
201
        [% IF ( phone ) %]Phone: [% phone %][% END %]
202
        [% IF ( booksellerfax ) %]Fax: [% booksellerfax %][% END %]
203
        [% IF ( bookselleremail ) %]</p><p><a href="mailto:[% bookselleremail %]">[% bookselleremail %]</a>[% END %]
204
    </fieldset>
201
    </fieldset>
205
</form>
202
</form>
206
203
(-)a/serials/claims.pl (-7 lines)
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
- 

Return to bug 12852