Browse Source

reintroducing lateissues-excel

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
3.0.x
Paul POULAIN 16 years ago
committed by Joshua Ferraro
parent
commit
6a924eb363
  1. 4
      koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tmpl
  2. 2
      serials/lateissues-excel.pl

4
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>

2
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

Loading…
Cancel
Save