Lines 45-50
use C4::Branch;
Link Here
|
45 |
use C4::Output; |
45 |
use C4::Output; |
46 |
use C4::Dates; |
46 |
use C4::Dates; |
47 |
use C4::Form::MessagingPreferences; |
47 |
use C4::Form::MessagingPreferences; |
|
|
48 |
use Koha::Database; |
48 |
|
49 |
|
49 |
sub StringSearch { |
50 |
sub StringSearch { |
50 |
my ($searchstring,$type)=@_; |
51 |
my ($searchstring,$type)=@_; |
Lines 125-147
if ($op eq 'add_form') {
Link Here
|
125 |
}; |
126 |
}; |
126 |
} |
127 |
} |
127 |
|
128 |
|
128 |
$template->param(description => $data->{'description'}, |
129 |
$template->param( |
129 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
130 |
description => $data->{'description'}, |
130 |
enrolmentperioddate => $data->{'enrolmentperioddate'}, |
131 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
131 |
upperagelimit => $data->{'upperagelimit'}, |
132 |
enrolmentperioddate => $data->{'enrolmentperioddate'}, |
132 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
133 |
upperagelimit => $data->{'upperagelimit'}, |
133 |
enrolmentfee => sprintf("%.2f",$data->{'enrolmentfee'} || 0), |
134 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
134 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
135 |
enrolmentfee => sprintf( "%.2f", $data->{'enrolmentfee'} || 0 ), |
135 |
issuelimit => $data->{'issuelimit'}, |
136 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
136 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
137 |
issuelimit => $data->{'issuelimit'}, |
137 |
hidelostitems => $data->{'hidelostitems'}, |
138 |
reservefee => sprintf( "%.2f", $data->{'reservefee'} || 0 ), |
138 |
category_type => $data->{'category_type'}, |
139 |
hidelostitems => $data->{'hidelostitems'}, |
139 |
SMSSendDriver => C4::Context->preference("SMSSendDriver"), |
140 |
category_type => $data->{'category_type'}, |
140 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
141 |
SMSSendDriver => C4::Context->preference("SMSSendDriver"), |
141 |
"type_".$data->{'category_type'} => 1, |
142 |
TalkingTechItivaPhone => |
142 |
branches_loop => \@branches_loop, |
143 |
C4::Context->preference("TalkingTechItivaPhoneNotification"), |
143 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
144 |
"type_" . $data->{'category_type'} => 1, |
144 |
); |
145 |
branches_loop => \@branches_loop, |
|
|
146 |
BlockExpiredPatronOpacActions => |
147 |
$data->{'BlockExpiredPatronOpacActions'}, |
148 |
default_privacy => $data->{'default_privacy'}, |
149 |
); |
150 |
|
145 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
151 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
146 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
152 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
147 |
} |
153 |
} |
Lines 169-175
if ($op eq 'add_form') {
Link Here
|
169 |
hidelostitems=?, |
175 |
hidelostitems=?, |
170 |
overduenoticerequired=?, |
176 |
overduenoticerequired=?, |
171 |
category_type=?, |
177 |
category_type=?, |
172 |
BlockExpiredPatronOpacActions=? |
178 |
BlockExpiredPatronOpacActions=?, |
|
|
179 |
default_privacy=? |
173 |
WHERE categorycode=?" |
180 |
WHERE categorycode=?" |
174 |
); |
181 |
); |
175 |
$sth->execute( |
182 |
$sth->execute( |
Lines 185-190
if ($op eq 'add_form') {
Link Here
|
185 |
'overduenoticerequired', |
192 |
'overduenoticerequired', |
186 |
'category_type', |
193 |
'category_type', |
187 |
'block_expired', |
194 |
'block_expired', |
|
|
195 |
'default_privacy', |
188 |
'categorycode' |
196 |
'categorycode' |
189 |
) |
197 |
) |
190 |
); |
198 |
); |
Lines 219-225
if ($op eq 'add_form') {
Link Here
|
219 |
hidelostitems, |
227 |
hidelostitems, |
220 |
overduenoticerequired, |
228 |
overduenoticerequired, |
221 |
category_type, |
229 |
category_type, |
222 |
BlockExpiredPatronOpacActions |
230 |
BlockExpiredPatronOpacActions, |
|
|
231 |
default_privacy |
223 |
) |
232 |
) |
224 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"); |
233 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"); |
225 |
$sth->execute( |
234 |
$sth->execute( |
Lines 235-241
if ($op eq 'add_form') {
Link Here
|
235 |
'hidelostitems', |
244 |
'hidelostitems', |
236 |
'overduenoticerequired', |
245 |
'overduenoticerequired', |
237 |
'category_type', |
246 |
'category_type', |
238 |
'block_expired' |
247 |
'block_expired', |
|
|
248 |
'default_privacy', |
239 |
) |
249 |
) |
240 |
); |
250 |
); |
241 |
$sth->finish; |
251 |
$sth->finish; |
Lines 252-291
if ($op eq 'add_form') {
Link Here
|
252 |
################## DELETE_CONFIRM ################################## |
262 |
################## DELETE_CONFIRM ################################## |
253 |
# called by default form, used to confirm deletion of data in DB |
263 |
# called by default form, used to confirm deletion of data in DB |
254 |
} elsif ($op eq 'delete_confirm') { |
264 |
} elsif ($op eq 'delete_confirm') { |
|
|
265 |
my $schema = Koha::Database->new()->schema(); |
255 |
$template->param(delete_confirm => 1); |
266 |
$template->param(delete_confirm => 1); |
256 |
|
267 |
|
257 |
my $dbh = C4::Context->dbh; |
268 |
my $count = $schema->resultset('Borrower')->search( { categorycode => $categorycode } )->count(); |
258 |
my $sth=$dbh->prepare("select count(*) as total from borrowers where categorycode=?"); |
269 |
my $category = $schema->resultset('Category')->find($categorycode); |
259 |
$sth->execute($categorycode); |
270 |
$category->enrolmentperioddate( C4::Dates::format_date( $category->enrolmentperioddate() ) ); |
260 |
my $total = $sth->fetchrow_hashref; |
271 |
$template->param( category => $category, patrons_in_category => $count ); |
261 |
$sth->finish; |
272 |
# END $OP eq DELETE_CONFIRM |
262 |
$template->param(total => $total->{'total'}); |
|
|
263 |
|
264 |
my $sth2=$dbh->prepare("SELECT * FROM categories WHERE categorycode=?"); |
265 |
$sth2->execute($categorycode); |
266 |
my $data=$sth2->fetchrow_hashref; |
267 |
$sth2->finish; |
268 |
if ($total->{'total'} >0) { |
269 |
$template->param(totalgtzero => 1); |
270 |
} |
271 |
|
272 |
if ($data->{'enrolmentperioddate'} && $data->{'enrolmentperioddate'} eq '0000-00-00') { |
273 |
$data->{'enrolmentperioddate'} = undef; |
274 |
} |
275 |
$template->param( description => $data->{'description'}, |
276 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
277 |
enrolmentperioddate => $data->{'enrolmentperioddate'}, |
278 |
upperagelimit => $data->{'upperagelimit'}, |
279 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
280 |
enrolmentfee => sprintf("%.2f",$data->{'enrolmentfee'} || 0), |
281 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
282 |
issuelimit => $data->{'issuelimit'}, |
283 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
284 |
hidelostitems => $data->{'hidelostitems'}, |
285 |
category_type => $data->{'category_type'}, |
286 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
287 |
); |
288 |
# END $OP eq DELETE_CONFIRM |
289 |
################## DELETE_CONFIRMED ################################## |
273 |
################## DELETE_CONFIRMED ################################## |
290 |
# called by delete_confirm, used to effectively confirm deletion of data in DB |
274 |
# called by delete_confirm, used to effectively confirm deletion of data in DB |
291 |
} elsif ($op eq 'delete_confirmed') { |
275 |
} elsif ($op eq 'delete_confirmed') { |
Lines 329-334
if ($op eq 'add_form') {
Link Here
|
329 |
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'} || 0), |
313 |
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'} || 0), |
330 |
hidelostitems => $results->[$i]{'hidelostitems'}, |
314 |
hidelostitems => $results->[$i]{'hidelostitems'}, |
331 |
category_type => $results->[$i]{'category_type'}, |
315 |
category_type => $results->[$i]{'category_type'}, |
|
|
316 |
default_privacy => $results->[$i]{'default_privacy'}, |
332 |
"type_".$results->[$i]{'category_type'} => 1, |
317 |
"type_".$results->[$i]{'category_type'} => 1, |
333 |
branches => \@selected_branches, |
318 |
branches => \@selected_branches, |
334 |
); |
319 |
); |