Lines 68-73
my $searchfield=$input->param('description');
Link Here
|
68 |
my $script_name="/cgi-bin/koha/admin/categorie.pl"; |
68 |
my $script_name="/cgi-bin/koha/admin/categorie.pl"; |
69 |
my $categorycode=$input->param('categorycode'); |
69 |
my $categorycode=$input->param('categorycode'); |
70 |
my $op = $input->param('op'); |
70 |
my $op = $input->param('op'); |
|
|
71 |
my $block_expired = $input->param("block_expired"); |
71 |
|
72 |
|
72 |
my ($template, $loggedinuser, $cookie) |
73 |
my ($template, $loggedinuser, $cookie) |
73 |
= get_template_and_user({template_name => "admin/categorie.tmpl", |
74 |
= get_template_and_user({template_name => "admin/categorie.tmpl", |
Lines 94-100
if ($op eq 'add_form') {
Link Here
|
94 |
my @selected_branches; |
95 |
my @selected_branches; |
95 |
if ($categorycode) { |
96 |
if ($categorycode) { |
96 |
my $dbh = C4::Context->dbh; |
97 |
my $dbh = C4::Context->dbh; |
97 |
my $sth=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
98 |
my $sth=$dbh->prepare("SELECT * FROM categories WHERE categorycode=?"); |
98 |
$sth->execute($categorycode); |
99 |
$sth->execute($categorycode); |
99 |
$data=$sth->fetchrow_hashref; |
100 |
$data=$sth->fetchrow_hashref; |
100 |
|
101 |
|
Lines 134-139
if ($op eq 'add_form') {
Link Here
|
134 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
135 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
135 |
"type_".$data->{'category_type'} => 1, |
136 |
"type_".$data->{'category_type'} => 1, |
136 |
branches_loop => \@branches_loop, |
137 |
branches_loop => \@branches_loop, |
|
|
138 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
137 |
); |
139 |
); |
138 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
140 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
139 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
141 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
Lines 150-157
if ($op eq 'add_form') {
Link Here
|
150 |
} |
152 |
} |
151 |
|
153 |
|
152 |
if ($is_a_modif) { |
154 |
if ($is_a_modif) { |
153 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,hidelostitems=?,overduenoticerequired=?,category_type=? WHERE categorycode=?"); |
155 |
my $sth=$dbh->prepare(" |
154 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','categorycode')); |
156 |
UPDATE categories |
|
|
157 |
SET description=?, |
158 |
enrolmentperiod=?, |
159 |
enrolmentperioddate=?, |
160 |
upperagelimit=?, |
161 |
dateofbirthrequired=?, |
162 |
enrolmentfee=?, |
163 |
reservefee=?, |
164 |
hidelostitems=?, |
165 |
overduenoticerequired=?, |
166 |
category_type=?, |
167 |
BlockExpiredPatronOpacActions=? |
168 |
WHERE categorycode=?" |
169 |
); |
170 |
$sth->execute( |
171 |
map { $input->param($_) } ( |
172 |
'description', |
173 |
'enrolmentperiod', |
174 |
'enrolmentperioddate', |
175 |
'upperagelimit', |
176 |
'dateofbirthrequired', |
177 |
'enrolmentfee', |
178 |
'reservefee', |
179 |
'hidelostitems', |
180 |
'overduenoticerequired', |
181 |
'category_type', |
182 |
'block_expired', |
183 |
'categorycode' |
184 |
) |
185 |
); |
155 |
my @branches = $input->param("branches"); |
186 |
my @branches = $input->param("branches"); |
156 |
if ( @branches ) { |
187 |
if ( @branches ) { |
157 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
188 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
Lines 169-179
if ($op eq 'add_form') {
Link Here
|
169 |
} |
200 |
} |
170 |
} |
201 |
} |
171 |
$sth->finish; |
202 |
$sth->finish; |
172 |
} else { |
203 |
} else { |
173 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?,?)"); |
204 |
my $sth=$dbh->prepare(" |
174 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type')); |
205 |
INSERT INTO categories ( |
175 |
$sth->finish; |
206 |
categorycode, |
176 |
} |
207 |
description, |
|
|
208 |
enrolmentperiod, |
209 |
enrolmentperioddate, |
210 |
upperagelimit, |
211 |
dateofbirthrequired, |
212 |
enrolmentfee, |
213 |
reservefee, |
214 |
hidelostitems, |
215 |
overduenoticerequired, |
216 |
category_type, |
217 |
BlockExpiredPatronOpacActions |
218 |
) |
219 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"); |
220 |
$sth->execute( |
221 |
map { $input->param($_) } ( |
222 |
'categorycode', |
223 |
'description', |
224 |
'enrolmentperiod', |
225 |
'enrolmentperioddate', |
226 |
'upperagelimit', |
227 |
'dateofbirthrequired', |
228 |
'enrolmentfee', |
229 |
'reservefee', |
230 |
'hidelostitems', |
231 |
'overduenoticerequired', |
232 |
'category_type', |
233 |
'block_expired' |
234 |
) |
235 |
); |
236 |
$sth->finish; |
237 |
} |
238 |
|
177 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
239 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
178 |
C4::Form::MessagingPreferences::handle_form_action($input, |
240 |
C4::Form::MessagingPreferences::handle_form_action($input, |
179 |
{ categorycode => $input->param('categorycode') }, $template); |
241 |
{ categorycode => $input->param('categorycode') }, $template); |
Lines 194-200
if ($op eq 'add_form') {
Link Here
|
194 |
$sth->finish; |
256 |
$sth->finish; |
195 |
$template->param(total => $total->{'total'}); |
257 |
$template->param(total => $total->{'total'}); |
196 |
|
258 |
|
197 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
259 |
my $sth2=$dbh->prepare("SELECT * FROM categories WHERE categorycode=?"); |
198 |
$sth2->execute($categorycode); |
260 |
$sth2->execute($categorycode); |
199 |
my $data=$sth2->fetchrow_hashref; |
261 |
my $data=$sth2->fetchrow_hashref; |
200 |
$sth2->finish; |
262 |
$sth2->finish; |
Lines 213-218
if ($op eq 'add_form') {
Link Here
|
213 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
275 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
214 |
hidelostitems => $data->{'hidelostitems'}, |
276 |
hidelostitems => $data->{'hidelostitems'}, |
215 |
category_type => $data->{'category_type'}, |
277 |
category_type => $data->{'category_type'}, |
|
|
278 |
BlockExpiredPatronOpacActions => $data->{'BlockExpiredPatronOpacActions'}, |
216 |
); |
279 |
); |
217 |
# END $OP eq DELETE_CONFIRM |
280 |
# END $OP eq DELETE_CONFIRM |
218 |
################## DELETE_CONFIRMED ################################## |
281 |
################## DELETE_CONFIRMED ################################## |