|
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; |