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 › Serials › 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