Lines 29-34
use C4::Log;
Link Here
|
29 |
use C4::Output; |
29 |
use C4::Output; |
30 |
use C4::Templates; |
30 |
use C4::Templates; |
31 |
use Koha::Acquisition::Currencies; |
31 |
use Koha::Acquisition::Currencies; |
|
|
32 |
use Koha::Patron::Categories; |
32 |
use File::Spec; |
33 |
use File::Spec; |
33 |
use IO::File; |
34 |
use IO::File; |
34 |
use YAML::Syck qw(); |
35 |
use YAML::Syck qw(); |
Lines 92-97
sub _get_chunk {
Link Here
|
92 |
$options{'choices'} = { map { $_ => $_ } getallthemes( 'opac' ) } |
93 |
$options{'choices'} = { map { $_ => $_ } getallthemes( 'opac' ) } |
93 |
} elsif ( $options{'choices'} eq 'staff-templates' ) { |
94 |
} elsif ( $options{'choices'} eq 'staff-templates' ) { |
94 |
$options{'choices'} = { map { $_ => $_ } getallthemes( 'intranet' ) } |
95 |
$options{'choices'} = { map { $_ => $_ } getallthemes( 'intranet' ) } |
|
|
96 |
} elsif ( $options{'choices'} eq 'patron-categories' ) { |
97 |
$options{'choices'} = { map { $_ => $_ } Koha::Patron::Categories->search({}) } |
95 |
} else { |
98 |
} else { |
96 |
die 'Unrecognized source of preference values: ' . $options{'choices'}; |
99 |
die 'Unrecognized source of preference values: ' . $options{'choices'}; |
97 |
} |
100 |
} |
Lines 100-110
sub _get_chunk {
Link Here
|
100 |
$value ||= 0; |
103 |
$value ||= 0; |
101 |
|
104 |
|
102 |
$chunk->{'type'} = 'select'; |
105 |
$chunk->{'type'} = 'select'; |
103 |
$chunk->{'CHOICES'} = [ |
106 |
if ( $name eq 'PatronSelfRegistrationDefaultCategory' ) { |
104 |
sort { $a->{'text'} cmp $b->{'text'} } |
107 |
$chunk->{'CHOICES'} = [ |
105 |
map { { text => $options{'choices'}->{$_}, value => $_, selected => ( $_ eq $value || ( $_ eq '' && ( $value eq '0' || !$value ) ) ) } } |
108 |
sort { $a->{'text'} cmp $b->{'text'} } |
106 |
keys %{ $options{'choices'} } |
109 |
map { { text => $options{'choices'}->{$_}->description, value => $options{'choices'}->{$_}->categorycode, selected => ( $options{'choices'}->{$_}->categorycode eq $value || ( $_ eq '' && ( $value eq '0' || !$value ) ) ) } } |
107 |
]; |
110 |
keys %{ $options{'choices'} } |
|
|
111 |
]; |
112 |
} else { |
113 |
$chunk->{'CHOICES'} = [ |
114 |
sort { $a->{'text'} cmp $b->{'text'} } |
115 |
map { { text => $options{'choices'}->{$_}, value => $_, selected => ( $_ eq $value || ( $_ eq '' && ( $value eq '0' || !$value ) ) ) } } |
116 |
keys %{ $options{'choices'} } |
117 |
]; |
118 |
} |
108 |
} elsif ( $options{'multiple'} ) { |
119 |
} elsif ( $options{'multiple'} ) { |
109 |
my @values; |
120 |
my @values; |
110 |
@values = split /,/, $value if defined($value); |
121 |
@values = split /,/, $value if defined($value); |
Lines 295-301
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
295 |
debug => 1, |
306 |
debug => 1, |
296 |
} |
307 |
} |
297 |
); |
308 |
); |
298 |
|
|
|
299 |
$lang = $template->param( 'lang' ); |
309 |
$lang = $template->param( 'lang' ); |
300 |
my $op = $input->param( 'op' ) || ''; |
310 |
my $op = $input->param( 'op' ) || ''; |
301 |
my $tab = $input->param( 'tab' ); |
311 |
my $tab = $input->param( 'tab' ); |