From 91f070ccbc77acaae7d50d590df5ae4226b85b73 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <veron@veron.ch>
---
 .../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' %]
-<title>Koha &rsaquo; Serials &rsaquo; Select vendor</title>
-[% INCLUDE 'doc-head-close.inc' %]
-<script type="text/javascript" language="Javascript">
-
-function GetIt(aqbooksellerid,name)
-{
-  opener.document.f.aqbooksellerid.value = aqbooksellerid;
-  opener.document.f.aqbooksellername.value = name;
-  window.close();
-}
-</script>
-</head>
-<body id="ser_acqui-search-result" class="ser">
-
-<div id="doc" class="yui-t7">
-   <div id="bd">
-	
-
-<h1>Vendor search results</h1>
-<h2>You searched on <b>vendor [% supplier %],</b> [% count %] results found</h2>
-
-[% IF ( loop_suppliers ) %]
-<table>
-	<tr>
-		<th>Vendor</th>
-		<th>Select</th>
-	</tr>
-	[% FOREACH loop_supplier IN loop_suppliers %]
-        [% UNLESS ( loop.odd ) %]
-        <tr class="highlight">
-        [% ELSE %]
-        <tr>
-        [% END %]
-			<td>[% loop_supplier.name %]</td>
-			<td><a href="#" onclick="GetIt([% loop_supplier.aqbooksellerid %],$(this).parent().prev().text())">Choose</a></td>
-		</tr>
-	[% END %]
-</table>
-[% END %]
-
-    <p><a href="/cgi-bin/koha/serials/acqui-search.pl">Perform a new search</a>  <a class="button" href="#" onclick="window.close()">Close</a></p>
-
-</div>
-
-[% 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 <http://www.gnu.org/licenses>.
-
-
-=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