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