From 0efaa6a41cfb2fbd401b1bffdec7714fd9db7051 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jean-Andr=C3=A9=20Santoni?= <jeanandre.santoni@biblibre.com>
Date: Mon, 22 Feb 2010 11:54:10 +0100
Subject: [PATCH] Replaced CGI dropdown box call wich is deprecated

Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
---
 .../prog/en/modules/serials/claims.tmpl       | 21 ++++++++++++-------
 serials/claims.pl                             | 12 ++++++++++-
 2 files changed, 25 insertions(+), 8 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
index 20068b852e..06002832ef 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
@@ -165,13 +165,20 @@
      <!-- /TMPL_IF -->
 <!-- TMPL_UNLESS NAME="letter" --><div class="dialog alert">No claims notice defined. <a href="/cgi-bin/koha/tools/letter.pl">Please define one</a>.</div><!-- /TMPL_UNLESS -->
     <form id="claims" name="claims" action="claims.pl" method="post">
-    <fieldset><label for="supplierid">View: </label>
-        <select id="supplierid" size="1" name="supplierid">
-        <!-- TMPL_LOOP NAME="supplier_loop" -->
-          <option value="<!-- TMPL_VAR NAME="id" -->"<!--  TMPL_IF NAME="selected" --> selected="yes" <!-- /TMPL_IF -->><!-- TMPL_VAR NAME="name" -->       
-          </option>
-        <!-- /TMPL_LOOP -->
-        </select>
+    <fieldset>
+	    <label for="supplierid">Supplier: </label>
+	    <select id="supplierid" name="supplierid">
+	        <!-- TMPL_LOOP name="suploop"-->
+	            <!-- TMPL_IF name="selected" -->
+	            <option value="<!-- TMPL_VAR name="id" -->" selected="selected" >
+	            <!-- TMPL_ELSE -->
+	            <option value="<!-- TMPL_VAR name="id" -->">
+	            <!-- /TMPL_IF -->
+	                <!-- TMPL_VAR name="name" -->
+	                (<!-- TMPL_VAR name="count" -->)
+	            </option>
+	        <!-- /TMPL_LOOP -->
+	    </select>
         <input type="submit" value="OK" />
         <!-- TMPL_IF name="phone" -->Phone: <!-- TMPL_VAR name="phone" --><!-- /TMPL_IF -->
         <!-- TMPL_IF name="booksellerfax" -->Fax: <!-- TMPL_VAR name="booksellerfax" --><!-- /TMPL_IF -->
diff --git a/serials/claims.pl b/serials/claims.pl
index b723136e18..0a0375e4f0 100755
--- a/serials/claims.pl
+++ b/serials/claims.pl
@@ -53,6 +53,16 @@ my ($template, $loggedinuser, $cookie)
             debug => 1,
             });
 
+my @suploop;
+for ( sort {$supplierlist{$a} cmp $supplierlist{$b} } keys %supplierlist ) {
+    my ($count, @dummy) = GetLateOrMissingIssues($_, "", $order);
+    push @suploop, {
+        id       => $_,
+        name     => $supplierlist{$_},
+        count    => $count,
+        selected => $_ == $supplierid,
+    };
+}
 
 my $letters = GetLetters('claimissues');
 my @letters;
@@ -82,7 +92,7 @@ if($op && $op eq 'preview'){
 $template->param('letters'=>\@letters,'letter'=>$letter);
 $template->param(
         order =>$order,
-        supplier_loop => $supplierlist,
+        suploop => \@suploop,
         phone => $supplierinfo[0]->{phone},
         booksellerfax => $supplierinfo[0]->{booksellerfax},
         bookselleremail => $supplierinfo[0]->{bookselleremail},
-- 
2.39.5