From 60dcd1f580beb09948c5f69ac98a05deaa5b7611 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Tue, 9 Sep 2014 15:22:35 +0200
Subject: [PATCH] [PASSED QA] Bug 12852: Some unused stuffs more

These parameters are never used.
GetBookSeller takes a string (bookseller name) in parameter, not an id!

Signed-off-by: Paola Rossi <paola.rossi@cineca.it>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt | 3 ---
 serials/claims.pl                                         | 6 ------
 2 files changed, 9 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
index 4cd666e..f20b486 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
@@ -198,9 +198,6 @@
 	        [% END %]
 	    </select>
         <input type="submit" value="OK" />
-        [% IF ( phone ) %]Phone: [% phone %][% END %]
-        [% IF ( booksellerfax ) %]Fax: [% booksellerfax %][% END %]
-        [% IF ( bookselleremail ) %]</p><p><a href="mailto:[% bookselleremail %]">[% bookselleremail %]</a>[% END %]
     </fieldset>
 </form>
 
diff --git a/serials/claims.pl b/serials/claims.pl
index dc55fad..bf2ed2f 100755
--- a/serials/claims.pl
+++ b/serials/claims.pl
@@ -84,21 +84,15 @@ if (@serialnums) { # i.e. they have been flagged to generate claims
 my $letters = GetLetters({ module => 'claimissues' });
 
 my @missingissues;
-my @supplierinfo;
 if ($supplierid) {
     @missingissues = GetLateOrMissingIssues($supplierid);
-    @supplierinfo=GetBookSeller($supplierid);
 }
 
 $template->param(
         suploop => $supplierlist,
-        phone => $supplierinfo[0]->{phone},
-        booksellerfax => $supplierinfo[0]->{booksellerfax},
-        bookselleremail => $supplierinfo[0]->{bookselleremail},
         missingissues => \@missingissues,
         supplierid => $supplierid,
         claimletter => $claimletter,
-        supplierloop => \@supplierinfo,
         branchloop   => $branchloop,
         csv_profiles => C4::Csv::GetCsvProfiles( "sql" ),
         letters => $letters,
-- 
1.9.1