From 91f070ccbc77acaae7d50d590df5ae4226b85b73 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 11 Nov 2015 08:43:30 +0000 Subject: [PATCH] Bug 15167; Remove unused script serials/acqui-search-result.pl MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This script does not seem to be used. It has not been updated usefully since 2006. Test plan: git grep acqui-search-result should not return any result. Searched for file acqui-search-result*.*, vanished. Signed-off-by: Marc VĂ©ron --- .../prog/en/modules/serials/acqui-search-result.tt | 46 --------- serials/acqui-search-result.pl | 98 -------------------- 2 files changed, 144 deletions(-) delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/serials/acqui-search-result.tt delete mode 100755 serials/acqui-search-result.pl diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/acqui-search-result.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/acqui-search-result.tt deleted file mode 100644 index 3c84b50..0000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/acqui-search-result.tt +++ /dev/null @@ -1,46 +0,0 @@ -[% INCLUDE 'doc-head-open.inc' %] -Koha › Serials › Select vendor -[% INCLUDE 'doc-head-close.inc' %] - - - - -
-
- - -

Vendor search results

-

You searched on vendor [% supplier %], [% count %] results found

- -[% IF ( loop_suppliers ) %] - - - - - - [% FOREACH loop_supplier IN loop_suppliers %] - [% UNLESS ( loop.odd ) %] - - [% ELSE %] - - [% END %] - - - - [% END %] -
VendorSelect
[% loop_supplier.name %]Choose
-[% END %] - -

Perform a new search Close

- -
- -[% INCLUDE 'intranet-bottom.inc' %] diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl deleted file mode 100755 index 6e4d944..0000000 --- a/serials/acqui-search-result.pl +++ /dev/null @@ -1,98 +0,0 @@ -#!/usr/bin/perl - -#script to show suppliers and orders -#written by chris@katipo.co.nz 23/2/2000 - -# Copyright 2000-2002 Katipo Communications -# -# 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 3 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, see . - - -=head1 NAME - -acqui-search-result.pl - -=head1 DESCRIPTION - - TODO - -=head1 PARAMETERS - -=over 4 - -=item supplier - -=back - -=cut - - -use strict; -use warnings; -use C4::Auth; -use C4::Biblio; -use C4::Output; -use CGI qw ( -utf8 ); -use C4::Acquisition qw( SearchOrders ); -use C4::Dates qw/format_date/; - -use Koha::Acquisition::Bookseller; - -my $query=new CGI; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "serials/acqui-search-result.tt", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {serials => '*'}, - debug => 1, - }); - -my $supplier=$query->param('supplier'); -my @suppliers = Koha::Acquisition::Bookseller->search({ name => $supplier }); -#my $count = scalar @suppliers; - -#build result page -my $loop_suppliers = []; -for my $s (@suppliers) { - my $orders = SearchOrders({ - booksellerid => $s->{'id'}, - pending => 1 - }); - - my $loop_basket = []; - for my $ord ( @{$orders} ) { - push @{$loop_basket}, { - basketno => $ord->{'basketno'}, - total => $ord->{'count(*)'}, - authorisedby => $ord->{'authorisedby'}, - creationdate => format_date($ord->{'creationdate'}), - closedate => format_date($ord->{'closedate'}), - }; - } - push @{$loop_suppliers}, { - loop_basket => $loop_basket, - aqbooksellerid => $s->{'id'}, - name => $s->{'name'}, - active => $s->{'active'}, - }; -} - -$template->param(loop_suppliers => $loop_suppliers, - supplier => $supplier, - count => scalar @suppliers); - -output_html_with_http_headers $query, $cookie, $template->output; -- 1.7.10.4