Lines 48-56
Default value for the dropbox.
Link Here
|
48 |
use Modern::Perl; |
48 |
use Modern::Perl; |
49 |
|
49 |
|
50 |
use CGI qw ( -utf8 ); |
50 |
use CGI qw ( -utf8 ); |
51 |
use C4::Koha; |
|
|
52 |
use C4::Charset; |
51 |
use C4::Charset; |
53 |
use C4::Auth qw/check_api_auth/; |
52 |
use C4::Auth qw/check_api_auth/; |
|
|
53 |
use Koha::AuthorisedValues; |
54 |
|
54 |
|
55 |
my $query = CGI->new(); |
55 |
my $query = CGI->new(); |
56 |
binmode STDOUT, ':encoding(UTF-8)'; |
56 |
binmode STDOUT, ':encoding(UTF-8)'; |
Lines 67-84
my $name = $input->param('name');
Link Here
|
67 |
my $category = $input->param('category'); |
67 |
my $category = $input->param('category'); |
68 |
my $default = $input->param('default'); |
68 |
my $default = $input->param('default'); |
69 |
$default = C4::Charset::NormalizeString($default); |
69 |
$default = C4::Charset::NormalizeString($default); |
70 |
|
70 |
my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; |
71 |
binmode STDOUT, ':encoding(UTF-8)'; |
71 |
|
72 |
print $input->header(-type => 'text/plain', -charset => 'UTF-8'); |
72 |
my $avs = Koha::AuthorisedValues->search( |
73 |
my $avs = C4::Koha::GetAuthvalueDropbox($category, $default); |
73 |
{ |
|
|
74 |
branchcode => $branch_limit, |
75 |
category => $category, |
76 |
}, |
77 |
{ |
78 |
group_by => 'lib', |
79 |
order_by => [ 'category', 'lib', 'lib_opac' ], |
80 |
} |
81 |
); |
74 |
my $html = qq|<select id="$name" name="$name">|; |
82 |
my $html = qq|<select id="$name" name="$name">|; |
75 |
for my $av ( @$avs ) { |
83 |
while ( my $av = $avs->next ) { |
76 |
if ( $av->{default} ) { |
84 |
if ( $av->authorised_value eq $default ) { |
77 |
$html .= qq|<option value="$av->{value}" selected="selected">$av->{label}</option>|; |
85 |
$html .= q|<option value="| . $av->authorised_value . q|" selected="selected">| . $av->lib . q|</option>|; |
78 |
} else { |
86 |
} else { |
79 |
$html .= qq|<option value="$av->{value}">$av->{label}</option>|; |
87 |
$html .= q|<option value="| . $av->authorised_value . q|">| . $av->lib . q|</option>|; |
80 |
} |
88 |
} |
81 |
} |
89 |
} |
82 |
$html .= qq|</select>|; |
90 |
$html .= qq|</select>|; |
83 |
|
91 |
|
|
|
92 |
binmode STDOUT, ':encoding(UTF-8)'; |
93 |
print $input->header(-type => 'text/plain', -charset => 'UTF-8'); |
84 |
print $html; |
94 |
print $html; |