|
Lines 47-54
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 47 |
|
47 |
|
| 48 |
if ( $op eq 'add_form' ) { |
48 |
if ( $op eq 'add_form' ) { |
| 49 |
|
49 |
|
|
|
50 |
my $category = Koha::Patron::Categories->find($categorycode); |
| 50 |
$template->param( |
51 |
$template->param( |
| 51 |
category => scalar Koha::Patron::Categories->find($categorycode), |
52 |
category => scalar $category, |
|
|
53 |
self_renewal_information_messages => parse_renewal_info_message( $category->self_renewal_information_message ) |
| 52 |
); |
54 |
); |
| 53 |
|
55 |
|
| 54 |
if ( C4::Context->preference('EnhancedMessagingPreferences') ) { |
56 |
if ( C4::Context->preference('EnhancedMessagingPreferences') ) { |
|
Lines 83-89
if ( $op eq 'add_form' ) {
Link Here
|
| 83 |
my $self_renewal_availability_start = $input->param('self_renewal_availability_start'); |
85 |
my $self_renewal_availability_start = $input->param('self_renewal_availability_start'); |
| 84 |
my $self_renewal_fines_block = $input->param('self_renewal_fines_block'); |
86 |
my $self_renewal_fines_block = $input->param('self_renewal_fines_block'); |
| 85 |
my $self_renewal_failure_message = $input->param('self_renewal_failure_message'); |
87 |
my $self_renewal_failure_message = $input->param('self_renewal_failure_message'); |
| 86 |
my $self_renewal_information_message = $input->param('self_renewal_information_message'); |
88 |
my @self_renewal_information_message = $input->multi_param('self_renewal_information_message'); |
| 87 |
my $self_renewal_if_expired = $input->param('self_renewal_if_expired'); |
89 |
my $self_renewal_if_expired = $input->param('self_renewal_if_expired'); |
| 88 |
|
90 |
|
| 89 |
my @branches = grep { $_ ne q{} } $input->multi_param('branches'); |
91 |
my @branches = grep { $_ ne q{} } $input->multi_param('branches'); |
|
Lines 130-136
if ( $op eq 'add_form' ) {
Link Here
|
| 130 |
$category->self_renewal_availability_start($self_renewal_availability_start); |
132 |
$category->self_renewal_availability_start($self_renewal_availability_start); |
| 131 |
$category->self_renewal_fines_block($self_renewal_fines_block); |
133 |
$category->self_renewal_fines_block($self_renewal_fines_block); |
| 132 |
$category->self_renewal_failure_message($self_renewal_failure_message); |
134 |
$category->self_renewal_failure_message($self_renewal_failure_message); |
| 133 |
$category->self_renewal_information_message($self_renewal_information_message); |
135 |
$category->self_renewal_information_message( parse_renewal_info_message( \@self_renewal_information_message ) ); |
| 134 |
$category->self_renewal_if_expired($self_renewal_if_expired); |
136 |
$category->self_renewal_if_expired($self_renewal_if_expired); |
| 135 |
eval { |
137 |
eval { |
| 136 |
$category->store; |
138 |
$category->store; |
|
Lines 174-181
if ( $op eq 'add_form' ) {
Link Here
|
| 174 |
self_renewal_availability_start => $self_renewal_availability_start, |
176 |
self_renewal_availability_start => $self_renewal_availability_start, |
| 175 |
self_renewal_fines_block => $self_renewal_fines_block, |
177 |
self_renewal_fines_block => $self_renewal_fines_block, |
| 176 |
self_renewal_failure_message => $self_renewal_failure_message, |
178 |
self_renewal_failure_message => $self_renewal_failure_message, |
| 177 |
self_renewal_information_message => $self_renewal_information_message, |
179 |
self_renewal_information_message => parse_renewal_info_message( \@self_renewal_information_message ), |
| 178 |
self_renewal_if_expired => $self_renewal_if_expired, |
180 |
self_renewal_if_expired => $self_renewal_if_expired, |
| 179 |
} |
181 |
} |
| 180 |
); |
182 |
); |
| 181 |
eval { |
183 |
eval { |
|
Lines 246-248
$template->param(
Link Here
|
| 246 |
output_html_with_http_headers $input, $cookie, $template->output; |
248 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 247 |
|
249 |
|
| 248 |
exit 0; |
250 |
exit 0; |
|
|
251 |
|
| 252 |
sub parse_renewal_info_message { |
| 253 |
my ($message) = @_; |
| 254 |
|
| 255 |
if ( ref($message) eq 'ARRAY' ) { |
| 256 |
my $info_message = join( '|', @$message ); |
| 257 |
return $info_message; |
| 258 |
} else { |
| 259 |
my @info_message = split( /\|/, $message ); |
| 260 |
return \@info_message; |
| 261 |
} |
| 262 |
|
| 263 |
return $message; |
| 264 |
} |