+++ /dev/null
-#!/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;