reintroducing lateissues-excel

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

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 002ddd0..b881476 100644 (file)
--- 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 e07eb93..7433a67 100755 (executable)
--- 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