42eb8b2286
In serial claims page, the library code is displayed in table instead of library name and library filter does not work. This patch adds the display of library name by using libraries template plugin. It changes the Javascript library filter to make it work. Also sets "all" filter in template (like status filter) to allow translation and sets "all" as selected by default. The staff user's library was selected by default, but the table was not filtered with it. Test plan : - Go to serials claim of a vendor with serials of multiple libraries => You see branch filter with "(All)" and table shows library's names - Check that library filter does its work Signed-off-by: David Cook <dcook@prosentient.com.au> Works as described. Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Table now shows the branch name instead of the branchcode. First option was named (All), matching the status pull down. When opening the claims page, (All) is preselected and the result list matches with the selection. Before the patch the library was preselected, but the result list did show late issues from all branches. This patch is an improvement, but there is still more work to do. - Filters are not cumulative, but when another filter is selected the first filter is not reset. - It's not possible to combine 2 or more filters. Signed-off-by: Galen Charlton <gmc@esilibrary.com>
104 lines
3.4 KiB
Perl
Executable file
104 lines
3.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Parts Copyright 2010 Biblibre
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use C4::Auth;
|
|
use C4::Serials;
|
|
use C4::Acquisition;
|
|
use C4::Output;
|
|
use C4::Bookseller qw( GetBookSeller );
|
|
use C4::Context;
|
|
use C4::Letters;
|
|
use C4::Branch; # GetBranches GetBranchesLoop
|
|
use C4::Csv qw( GetCsvProfiles );
|
|
|
|
my $input = CGI->new;
|
|
|
|
my $serialid = $input->param('serialid');
|
|
my $op = $input->param('op');
|
|
my $claimletter = $input->param('claimletter');
|
|
my $supplierid = $input->param('supplierid');
|
|
my $suppliername = $input->param('suppliername');
|
|
my $order = $input->param('order');
|
|
|
|
# open template first (security & userenv set here)
|
|
my ($template, $loggedinuser, $cookie)
|
|
= get_template_and_user({template_name => 'serials/claims.tmpl',
|
|
query => $input,
|
|
type => 'intranet',
|
|
authnotrequired => 0,
|
|
flagsrequired => {serials => 'claim_serials'},
|
|
debug => 1,
|
|
});
|
|
|
|
# supplierlist is returned in name order
|
|
my $supplierlist = GetSuppliersWithLateIssues();
|
|
for my $s (@{$supplierlist} ) {
|
|
$s->{count} = scalar GetLateOrMissingIssues($s->{id}, q{}, $order);
|
|
if ($supplierid && $s->{id} == $supplierid) {
|
|
$s->{selected} = 1;
|
|
}
|
|
}
|
|
|
|
my $letters = GetLetters('claimissues');
|
|
my @letters;
|
|
foreach (keys %{$letters}){
|
|
push @letters ,{code=>$_,name=> $letters->{$_}};
|
|
}
|
|
|
|
my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
|
|
my @missingissues;
|
|
my @supplierinfo;
|
|
if ($supplierid) {
|
|
@missingissues = GetLateOrMissingIssues($supplierid,$serialid,$order);
|
|
@supplierinfo=GetBookSeller($supplierid);
|
|
}
|
|
|
|
my $branchloop = GetBranchesLoop();
|
|
|
|
my $preview=0;
|
|
if($op && $op eq 'preview'){
|
|
$preview = 1;
|
|
} else {
|
|
my @serialnums=$input->param('serialid');
|
|
if (@serialnums) { # i.e. they have been flagged to generate claims
|
|
SendAlerts('claimissues',\@serialnums,$input->param("letter_code"));
|
|
my $cntupdate=UpdateClaimdateIssues(\@serialnums);
|
|
### $cntupdate SHOULD be equal to scalar(@$serialnums)
|
|
}
|
|
}
|
|
$template->param('letters'=>\@letters,'letter'=>$letter);
|
|
$template->param(
|
|
order =>$order,
|
|
suploop => $supplierlist,
|
|
phone => $supplierinfo[0]->{phone},
|
|
booksellerfax => $supplierinfo[0]->{booksellerfax},
|
|
bookselleremail => $supplierinfo[0]->{bookselleremail},
|
|
preview => $preview,
|
|
missingissues => \@missingissues,
|
|
supplierid => $supplierid,
|
|
claimletter => $claimletter,
|
|
supplierloop => \@supplierinfo,
|
|
branchloop => $branchloop,
|
|
csv_profiles => C4::Csv::GetCsvProfiles( "sql" ),
|
|
(uc(C4::Context->preference("marcflavour"))) => 1
|
|
);
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|