Attachment 12155 Details for Bug 8740 – [SIGNED OFF]enh bug 8740 Serials Claims should be exportable all at once

[patch] [SIGNED OFF]enh bug 8740 Serials Claims should be exportable all at once

enh-bug-8740-Serials-Claims-should-be-exportable-a.patch (text/plain), 2.37 KB, created by Joy Nelson on 2012-09-11 20:43:18 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Joy Nelson

Created: 2012-09-11 20:43:18 UTC

Size: 2.37 KB

patch

obsolete

>From 817853f0b7ace19e7dc824c5df89e7433f69d6fc Mon Sep 17 00:00:00 2001
>From: MJ Ray <mjr@phonecoop.coop>
>Date: Fri, 7 Sep 2012 18:29:39 +0100
>Subject: [PATCH] enh bug 8740 Serials Claims should be exportable all at once
>Content-Type: text/plain; charset="utf-8"
>
>Signed-off-by: Joy Nelson <joy@bywatersolutions.com>
>---
> .../prog/en/modules/serials/claims.tt              |    1 +
> serials/claims.pl                                  |    9 ++++++++-
> 2 files changed, 9 insertions(+), 1 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 b47b51b..efcbb7d 100644
>--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
>+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt
>@@ -184,6 +184,7 @@
> 	                ([% suploo.count %])
> 	            </option>
> 	        [% END %]
>+		    <option value="all">All ([% allissues %])</option>
> 	    </select>
>         <input type="submit" value="OK" />
>         [% IF ( phone ) %]Phone: [% phone %][% END %]
>diff --git a/serials/claims.pl b/serials/claims.pl
>index 1b97a1b..1572a10 100755
>--- a/serials/claims.pl
>+++ b/serials/claims.pl
>@@ -50,8 +50,10 @@ my ($template, $loggedinuser, $cookie)
> 
> # supplierlist is returned in name order
> my $supplierlist = GetSuppliersWithLateIssues();
>+my $allissues = 0;
> for my $s (@{$supplierlist} ) {
>     $s->{count} = scalar  GetLateOrMissingIssues($s->{id}, q{}, $order);
>+    $allissues += $s->{count};
>     if ($supplierid && $s->{id} == $supplierid) {
>         $s->{selected} = 1;
>     }
>@@ -66,7 +68,11 @@ foreach (keys %{$letters}){
> my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
> my  @missingissues;
> my @supplierinfo;
>-if ($supplierid) {
>+if ( $supplierid eq 'all' ) {
>+    foreach my $s (@{$supplierlist} ) {
>+        push(@missingissues,GetLateOrMissingIssues($s->{id},$serialid,$order));
>+    }
>+} elsif ($supplierid) {
>     @missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
>     @supplierinfo=GetBookSeller($supplierid);
> }
>@@ -94,6 +100,7 @@ $template->param(
>         bookselleremail => $supplierinfo[0]->{bookselleremail},
>         preview => $preview,
>         missingissues => \@missingissues,
>+        allissues => $allissues,
>         supplierid => $supplierid,
>         claimletter => $claimletter,
>         supplierloop => \@supplierinfo,
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 8740: 12068 | 12155 | 15788 | 15789 | 16491