From 4e88f0edd54ca2e0caed0ecaf8eafe394eee5f93 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 6 Mar 2014 17:19:20 +0100 Subject: [PATCH] [PASSED QA] Bug 7180: fetch_sort_dropbox.pl is not in use anymore Test plan: git grep fetch_sort_dropbox should return no result. Signed-off-by: Katrin Fischer --- 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 ce47fb7..0000000 --- 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 = ''; -} - -$template->param( 'return' => $ret_html ); -output_html_with_http_headers $input, $cookie, $template->output; -- 1.8.3.2