From 6a924eb3639f786419dca77dc397df8c6e3d0f21 Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul@koha-fr.org>
Date: Tue, 11 Dec 2007 11:15:49 +0100
Subject: [PATCH] reintroducing lateissues-excel

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl | 4 ++++
 serials/lateissues-excel.pl                                 | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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 002ddd0293..b881476b65 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
@@ -70,6 +70,7 @@
                     <th>Issue number</th>
                     <th>Status <a href="javascript:Setorder('status');">sort</a></th>
                     <th>Since <a href="javascript:Setorder('planneddate');">sort</a></th>
+                    <th></th>
                 <th>Began Claim</th>
                 </tr>
                 <!-- TMPL_LOOP name="missingissues" -->
@@ -101,6 +102,9 @@
                         <td>
                         <!-- TMPL_VAR name="claimdate" -->
                         </td>
+                        <td>
+                            <a href="/cgi-bin/koha/serials/lateissues-excel.pl?supplierid=<!-- TMPL_VAR name="supplieri" -->&serialid=<!-- TMPL_VAR name="serialid" -->&op=claims">Export item data</a>
+                        </td>
                     </tr>
                 <!-- /TMPL_LOOP -->
             </table>
diff --git a/serials/lateissues-excel.pl b/serials/lateissues-excel.pl
index e07eb93c70..7433a6711d 100755
--- a/serials/lateissues-excel.pl
+++ b/serials/lateissues-excel.pl
@@ -51,7 +51,7 @@ my $totalcount2 = 0;
 my @loop2;
 my ($count2, @missingissues);
 for (my $k=0;$k<@serialid;$k++){
-    ($count2, @missingissues) = GetMissingIssues($supplierid, $serialid[$k]);
+    ($count2, @missingissues) = GetLateOrMissingIssues($supplierid, $serialid[$k]);
 
     for (my $j=0;$j<@missingissues;$j++){
 	my @rows2 = ($missingissues[$j]->{'name'},          # lets build up a row
-- 
2.39.5