From 061ab30ac1abbcb55451b98a1b10a74f354a764d Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Thu, 6 Mar 2014 17:19:20 +0100
Subject: [PATCH] Bug 7180: (follow-up) remove disused script
 fetch_sort_dropbox.pl

Test plan:
  git grep fetch_sort_dropbox
should return no result.

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 acqui/fetch_sort_dropbox.pl | 107 ------------------------------------
 1 file changed, 107 deletions(-)
 delete mode 100755 acqui/fetch_sort_dropbox.pl

diff --git a/acqui/fetch_sort_dropbox.pl b/acqui/fetch_sort_dropbox.pl
deleted file mode 100755
index ce47fb7926..0000000000
--- a/acqui/fetch_sort_dropbox.pl
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2008-2009 BibLibre SARL
-#
-# 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::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Budgets;
-
-=head1 NAME
-
-fetch_sort_dropbox.pl
-
-=head1 DESCRIPTION
-
- This script fetches sort values for a given budget id. Currently it is used to dynamically fill
- 'Statistic 1' and 'Statistic 2' comboboxes in neworderempty page. Values retrieved depend on
- categories of authorized values defined in funds configuration.
-
-=head1 CGI PARAMETERS
-
-=over 4
-
-=item budget_id
-
-Budget identifier
-
-=item sort
-
-Sort number. 1 or 2 for the moment.
-
-=back
-
-=cut
-
-my $input = new CGI;
-
-my $budget_id = $input->param('budget_id');
-my $sort_nb   = $input->param('sort');
-die "sort parameter can only be 1 or 2" unless ($sort_nb == 1 || $sort_nb == 2);
-
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
-    {   template_name   => "acqui/ajax.tmpl",
-        query           => $input,
-        type            => "intranet",
-        authnotrequired => 0,
-        flagsrequired => {acquisition => 'order_manage'},
-        debug => 0,
-    }
-);
-
-my $ret_html;
-my $name = 'sort'.$sort_nb;
-my $authcat_field = 'sort'.$sort_nb.'_authcat';
-
-my $budget = GetBudget($budget_id);
-
-if ( $budget && $budget->{$authcat_field} ) {
-    # with custom  Asort* planning values
-    my $dropbox_values = GetAuthvalueDropbox( $budget->{$authcat_field}, '' );
-
-    my @authorised_values;
-    my %authorised_lib;
-    my $default_value;
-
-    foreach ( @$dropbox_values) {
-        push @authorised_values, $_->{value};
-        $authorised_lib{$_->{value}} = $_->{label};
-        $default_value = $_->{value} if $_->{'default'};
-    }
-
-    $ret_html = CGI::scrolling_list(
-        -values   => \@authorised_values,
-        -labels   => \%authorised_lib,
-        -default  => $default_value,
-        -override => 1,
-        -size     => 1,
-        -multiple => 0,
-        -name     => $name,
-        -id       => $name,
-    );
-
-} else {
-    # free input
-    $ret_html = '<input type="text" size="20" name="'.$name.'" id="'.$name.'" />';
-}
-
-$template->param( 'return' => $ret_html );
-output_html_with_http_headers $input, $cookie, $template->output;
-- 
2.39.5