Koha/acqui/fetch_sort_dropbox.pl
Fridolyn SOMERS d09b2ecb52 Bug 8629: update of statistics fields on fund selection in order creation/edition
Signed-off-by: Marc Veron <veron@veron.ch>

Followed test plan in comment #1
Behaves as described in the test plan.
Useful feature!

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
2012-09-14 16:57:02 +02:00

107 lines
2.8 KiB
Perl
Executable file

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