View | Details | Raw Unified | Return to bug 7342
Collapse All | Expand All

(-)a/acqui/fetch_sort_dropbox.pl (+74 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
3
# Copyright 2008-2009 BibLibre SARL
4
#
5
# This file is part of Koha.
6
#
7
# Koha is free software; you can redistribute it and/or modify it under the
8
# terms of the GNU General Public License as published by the Free Software
9
# Foundation; either version 2 of the License, or (at your option) any later
10
# version.
11
#
12
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15
#
16
# You should have received a copy of the GNU General Public License along with
17
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18
# Suite 330, Boston, MA  02111-1307 USA
19
20
use strict;
21
use CGI;
22
use C4::Context;
23
use C4::Output;
24
use C4::Auth;
25
use C4::Budgets;
26
27
=head1
28
29
fetch_sort_dropbox : 
30
31
=cut
32
33
my $input = new CGI;
34
35
my $budget_id = $input->param('budget_id');
36
my $sort_id   = $input->param('sort');
37
38
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
39
    {   template_name   => "acqui/ajax.tmpl", # FIXME: REMOVE TMPL DEP?
40
        query           => $input,
41
        type            => "intranet",
42
        authnotrequired => 0,
43
        flagsrequired => {editcatalogue => 'edit_catalogue'},
44
        debug => 0,
45
    }
46
);
47
48
#my $dropbox_values;
49
my $budget = GetBudget($budget_id);
50
my $dropbox_values = GetAuthvalueDropbox( $budget->{'sort'.$sort_id.'_authcat'}, '' );
51
52
my @authorised_values;
53
my %authorised_lib;
54
55
foreach ( @$dropbox_values) {
56
    push @authorised_values, $_->{value};
57
    $authorised_lib{$_->{value}} = $_->{label};
58
}
59
60
my $budget_authvalue_dropbox = CGI::scrolling_list(
61
    -values   => \@authorised_values,
62
    -labels   => \%authorised_lib,
63
    -default  => $authorised_values[0],
64
);
65
66
67
#strip off select tags ;/
68
$budget_authvalue_dropbox =~ s/^\<select.*?\"\>//;
69
$budget_authvalue_dropbox =~ s/\<\/select\>$//;
70
chomp $budget_authvalue_dropbox;
71
72
$template->param( return => $budget_authvalue_dropbox );
73
output_html_with_http_headers $input, $cookie, $template->output;
74
1;
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt (-6 / +5 lines)
Lines 475-483 $(document).ready(function() Link Here
475
                    <select id="sort1" size="1" name="sort1">
475
                    <select id="sort1" size="1" name="sort1">
476
                    [% FOREACH sort_opt IN CGIsort1 %]
476
                    [% FOREACH sort_opt IN CGIsort1 %]
477
                       [% IF sort_opt.default %]
477
                       [% IF sort_opt.default %]
478
                          <option value="[% sort_opt.id %]" selected="selected">[% sort_opt.label %]</option>
478
                          <option value="[% sort_opt.value %]" selected="selected">[% sort_opt.label %]</option>
479
                        [% ELSE %]
479
                        [% ELSE %]
480
                          <option value="[% sort_opt.id %]">[% sort_opt.label %]</option>
480
                          <option value="[% sort_opt.value %]">[% sort_opt.label %]</option>
481
                        [% END %]
481
                        [% END %]
482
                    [% END %]
482
                    [% END %]
483
                    </select>
483
                    </select>
Lines 490-501 $(document).ready(function() Link Here
490
                <label for="sort2">Statistic 2: </label>
490
                <label for="sort2">Statistic 2: </label>
491
491
492
                [% IF CGIsort2 %]
492
                [% IF CGIsort2 %]
493
                    <select id="sort2" size="1" name="sort1">
493
                    <select id="sort2" size="1" name="sort2">
494
                    [% FOREACH sort_opt IN CGIsort2 %]
494
                    [% FOREACH sort_opt IN CGIsort2 %]
495
                       [% IF sort_opt.default %]
495
                       [% IF sort_opt.default %]
496
                          <option value="[% sort_opt.id %]" selected="selected">[% sort_opt.label %]</option>
496
                          <option value="[% sort_opt.value %]" selected="selected">[% sort_opt.label %]</option>
497
                        [% ELSE %]
497
                        [% ELSE %]
498
                          <option value="[% sort_opt.id %]">[% sort_opt.label %]</option>
498
                          <option value="[% sort_opt.value %]">[% sort_opt.label %]</option>
499
                        [% END %]
499
                        [% END %]
500
                    [% END %]
500
                    [% END %]
501
                    </select>
501
                    </select>
502
- 

Return to bug 7342