|
Lines 70-75
my $searchfield=$input->param('description');
Link Here
|
| 70 |
my $script_name="/cgi-bin/koha/admin/categorie.pl"; |
70 |
my $script_name="/cgi-bin/koha/admin/categorie.pl"; |
| 71 |
my $categorycode=$input->param('categorycode'); |
71 |
my $categorycode=$input->param('categorycode'); |
| 72 |
my $op = $input->param('op') // ''; |
72 |
my $op = $input->param('op') // ''; |
|
|
73 |
my $block_expired = $input->param("block_expired"); |
| 73 |
|
74 |
|
| 74 |
my ($template, $loggedinuser, $cookie) |
75 |
my ($template, $loggedinuser, $cookie) |
| 75 |
= get_template_and_user({template_name => "admin/categorie.tmpl", |
76 |
= get_template_and_user({template_name => "admin/categorie.tmpl", |
|
Lines 96-102
if ($op eq 'add_form') {
Link Here
|
| 96 |
my @selected_branches; |
97 |
my @selected_branches; |
| 97 |
if ($categorycode) { |
98 |
if ($categorycode) { |
| 98 |
my $dbh = C4::Context->dbh; |
99 |
my $dbh = C4::Context->dbh; |
| 99 |
my $sth=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
100 |
my $sth=$dbh->prepare("SELECT * FROM categories WHERE categorycode=?"); |
| 100 |
$sth->execute($categorycode); |
101 |
$sth->execute($categorycode); |
| 101 |
$data=$sth->fetchrow_hashref; |
102 |
$data=$sth->fetchrow_hashref; |
| 102 |
|
103 |
|
|
Lines 139-144
if ($op eq 'add_form') {
Link Here
|
| 139 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
140 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
| 140 |
"type_".$data->{'category_type'} => 1, |
141 |
"type_".$data->{'category_type'} => 1, |
| 141 |
branches_loop => \@branches_loop, |
142 |
branches_loop => \@branches_loop, |
|
|
143 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
| 142 |
); |
144 |
); |
| 143 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
145 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 144 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
146 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
|
Lines 155-162
if ($op eq 'add_form') {
Link Here
|
| 155 |
} |
157 |
} |
| 156 |
|
158 |
|
| 157 |
if ($is_a_modif) { |
159 |
if ($is_a_modif) { |
| 158 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,hidelostitems=?,overduenoticerequired=?,category_type=? WHERE categorycode=?"); |
160 |
my $sth=$dbh->prepare(" |
| 159 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','categorycode')); |
161 |
UPDATE categories |
|
|
162 |
SET description=?, |
| 163 |
enrolmentperiod=?, |
| 164 |
enrolmentperioddate=?, |
| 165 |
upperagelimit=?, |
| 166 |
dateofbirthrequired=?, |
| 167 |
enrolmentfee=?, |
| 168 |
reservefee=?, |
| 169 |
hidelostitems=?, |
| 170 |
overduenoticerequired=?, |
| 171 |
category_type=?, |
| 172 |
BlockExpiredPatronOpacActions=? |
| 173 |
WHERE categorycode=?" |
| 174 |
); |
| 175 |
$sth->execute( |
| 176 |
map { $input->param($_) } ( |
| 177 |
'description', |
| 178 |
'enrolmentperiod', |
| 179 |
'enrolmentperioddate', |
| 180 |
'upperagelimit', |
| 181 |
'dateofbirthrequired', |
| 182 |
'enrolmentfee', |
| 183 |
'reservefee', |
| 184 |
'hidelostitems', |
| 185 |
'overduenoticerequired', |
| 186 |
'category_type', |
| 187 |
'block_expired', |
| 188 |
'categorycode' |
| 189 |
) |
| 190 |
); |
| 160 |
my @branches = $input->param("branches"); |
191 |
my @branches = $input->param("branches"); |
| 161 |
if ( @branches ) { |
192 |
if ( @branches ) { |
| 162 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
193 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
|
Lines 174-184
if ($op eq 'add_form') {
Link Here
|
| 174 |
} |
205 |
} |
| 175 |
} |
206 |
} |
| 176 |
$sth->finish; |
207 |
$sth->finish; |
| 177 |
} else { |
208 |
} else { |
| 178 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?,?)"); |
209 |
my $sth=$dbh->prepare(" |
| 179 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type')); |
210 |
INSERT INTO categories ( |
| 180 |
$sth->finish; |
211 |
categorycode, |
| 181 |
} |
212 |
description, |
|
|
213 |
enrolmentperiod, |
| 214 |
enrolmentperioddate, |
| 215 |
upperagelimit, |
| 216 |
dateofbirthrequired, |
| 217 |
enrolmentfee, |
| 218 |
reservefee, |
| 219 |
hidelostitems, |
| 220 |
overduenoticerequired, |
| 221 |
category_type, |
| 222 |
BlockExpiredPatronOpacActions |
| 223 |
) |
| 224 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"); |
| 225 |
$sth->execute( |
| 226 |
map { $input->param($_) } ( |
| 227 |
'categorycode', |
| 228 |
'description', |
| 229 |
'enrolmentperiod', |
| 230 |
'enrolmentperioddate', |
| 231 |
'upperagelimit', |
| 232 |
'dateofbirthrequired', |
| 233 |
'enrolmentfee', |
| 234 |
'reservefee', |
| 235 |
'hidelostitems', |
| 236 |
'overduenoticerequired', |
| 237 |
'category_type', |
| 238 |
'block_expired' |
| 239 |
) |
| 240 |
); |
| 241 |
$sth->finish; |
| 242 |
} |
| 243 |
|
| 182 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
244 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 183 |
C4::Form::MessagingPreferences::handle_form_action($input, |
245 |
C4::Form::MessagingPreferences::handle_form_action($input, |
| 184 |
{ categorycode => $input->param('categorycode') }, $template); |
246 |
{ categorycode => $input->param('categorycode') }, $template); |
|
Lines 199-205
if ($op eq 'add_form') {
Link Here
|
| 199 |
$sth->finish; |
261 |
$sth->finish; |
| 200 |
$template->param(total => $total->{'total'}); |
262 |
$template->param(total => $total->{'total'}); |
| 201 |
|
263 |
|
| 202 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
264 |
my $sth2=$dbh->prepare("SELECT * FROM categories WHERE categorycode=?"); |
| 203 |
$sth2->execute($categorycode); |
265 |
$sth2->execute($categorycode); |
| 204 |
my $data=$sth2->fetchrow_hashref; |
266 |
my $data=$sth2->fetchrow_hashref; |
| 205 |
$sth2->finish; |
267 |
$sth2->finish; |
|
Lines 221-226
if ($op eq 'add_form') {
Link Here
|
| 221 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
283 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
| 222 |
hidelostitems => $data->{'hidelostitems'}, |
284 |
hidelostitems => $data->{'hidelostitems'}, |
| 223 |
category_type => $data->{'category_type'}, |
285 |
category_type => $data->{'category_type'}, |
|
|
286 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
| 224 |
); |
287 |
); |
| 225 |
# END $OP eq DELETE_CONFIRM |
288 |
# END $OP eq DELETE_CONFIRM |
| 226 |
################## DELETE_CONFIRMED ################################## |
289 |
################## DELETE_CONFIRMED ################################## |