From 17bf05cc1411cff92a010a5afdcafad286c296bc Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Fri, 9 Dec 2011 10:43:40 +0100 Subject: [PATCH] bug 7342 - neworderempty: Fix empty values in statistic 1 and 2 dropboxes --- acqui/fetch_sort_dropbox.pl | 74 ++++++++++++++++++++ .../prog/en/modules/acqui/neworderempty.tt | 10 ++-- 2 files changed, 79 insertions(+), 5 deletions(-) create mode 100755 acqui/fetch_sort_dropbox.pl diff --git a/acqui/fetch_sort_dropbox.pl b/acqui/fetch_sort_dropbox.pl new file mode 100755 index 0000000..4045016 --- /dev/null +++ b/acqui/fetch_sort_dropbox.pl @@ -0,0 +1,74 @@ +#!/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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use CGI; +use C4::Context; +use C4::Output; +use C4::Auth; +use C4::Budgets; + +=head1 + +fetch_sort_dropbox : + +=cut + +my $input = new CGI; + +my $budget_id = $input->param('budget_id'); +my $sort_id = $input->param('sort'); + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { template_name => "acqui/ajax.tmpl", # FIXME: REMOVE TMPL DEP? + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {editcatalogue => 'edit_catalogue'}, + debug => 0, + } +); + +#my $dropbox_values; +my $budget = GetBudget($budget_id); +my $dropbox_values = GetAuthvalueDropbox( $budget->{'sort'.$sort_id.'_authcat'}, '' ); + +my @authorised_values; +my %authorised_lib; + +foreach ( @$dropbox_values) { + push @authorised_values, $_->{value}; + $authorised_lib{$_->{value}} = $_->{label}; +} + +my $budget_authvalue_dropbox = CGI::scrolling_list( + -values => \@authorised_values, + -labels => \%authorised_lib, + -default => $authorised_values[0], +); + + +#strip off select tags ;/ +$budget_authvalue_dropbox =~ s/^\//; +$budget_authvalue_dropbox =~ s/\<\/select\>$//; +chomp $budget_authvalue_dropbox; + +$template->param( return => $budget_authvalue_dropbox ); +output_html_with_http_headers $input, $cookie, $template->output; +1; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt index d58582e..26db40d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt @@ -475,9 +475,9 @@ $(document).ready(function() @@ -490,12 +490,12 @@ $(document).ready(function() [% IF CGIsort2 %] - [% FOREACH sort_opt IN CGIsort2 %] [% IF sort_opt.default %] - + [% ELSE %] - + [% END %] [% END %] -- 1.7.0.4