|
Lines 96-102
if ($op eq 'add_form') {
Link Here
|
| 96 |
my @selected_branches; |
96 |
my @selected_branches; |
| 97 |
if ($categorycode) { |
97 |
if ($categorycode) { |
| 98 |
my $dbh = C4::Context->dbh; |
98 |
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=?"); |
99 |
my $sth=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type,checkprevissuebycategory from categories where categorycode=?"); |
| 100 |
$sth->execute($categorycode); |
100 |
$sth->execute($categorycode); |
| 101 |
$data=$sth->fetchrow_hashref; |
101 |
$data=$sth->fetchrow_hashref; |
| 102 |
|
102 |
|
|
Lines 139-144
if ($op eq 'add_form') {
Link Here
|
| 139 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
139 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
| 140 |
"type_".$data->{'category_type'} => 1, |
140 |
"type_".$data->{'category_type'} => 1, |
| 141 |
branches_loop => \@branches_loop, |
141 |
branches_loop => \@branches_loop, |
|
|
142 |
checkprevissue => $data->{'checkprevissuebycategory'}, |
| 142 |
); |
143 |
); |
| 143 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
144 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 144 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
145 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
|
Lines 155-162
if ($op eq 'add_form') {
Link Here
|
| 155 |
} |
156 |
} |
| 156 |
|
157 |
|
| 157 |
if ($is_a_modif) { |
158 |
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=?"); |
159 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,hidelostitems=?,overduenoticerequired=?,category_type=?,checkprevissuebycategory=? WHERE categorycode=?"); |
| 159 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','categorycode')); |
160 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','checkprevissue','categorycode')); |
| 160 |
my @branches = $input->param("branches"); |
161 |
my @branches = $input->param("branches"); |
| 161 |
if ( @branches ) { |
162 |
if ( @branches ) { |
| 162 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
163 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
|
Lines 175-182
if ($op eq 'add_form') {
Link Here
|
| 175 |
} |
176 |
} |
| 176 |
$sth->finish; |
177 |
$sth->finish; |
| 177 |
} else { |
178 |
} else { |
| 178 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?,?)"); |
179 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type,checkprevissuebycategory) values (?,?,?,?,?,?,?,?,?,?,?,?)"); |
| 179 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type')); |
180 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','checkprevissue')); |
| 180 |
$sth->finish; |
181 |
$sth->finish; |
| 181 |
} |
182 |
} |
| 182 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
183 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
|
Lines 199-205
if ($op eq 'add_form') {
Link Here
|
| 199 |
$sth->finish; |
200 |
$sth->finish; |
| 200 |
$template->param(total => $total->{'total'}); |
201 |
$template->param(total => $total->{'total'}); |
| 201 |
|
202 |
|
| 202 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
203 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type,checkprevissuebycategory from categories where categorycode=?"); |
| 203 |
$sth2->execute($categorycode); |
204 |
$sth2->execute($categorycode); |
| 204 |
my $data=$sth2->fetchrow_hashref; |
205 |
my $data=$sth2->fetchrow_hashref; |
| 205 |
$sth2->finish; |
206 |
$sth2->finish; |
|
Lines 221-226
if ($op eq 'add_form') {
Link Here
|
| 221 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
222 |
reservefee => sprintf("%.2f",$data->{'reservefee'} || 0), |
| 222 |
hidelostitems => $data->{'hidelostitems'}, |
223 |
hidelostitems => $data->{'hidelostitems'}, |
| 223 |
category_type => $data->{'category_type'}, |
224 |
category_type => $data->{'category_type'}, |
|
|
225 |
checkprevissue => $data->{'checkprevissuebycategory'}, |
| 224 |
); |
226 |
); |
| 225 |
# END $OP eq DELETE_CONFIRM |
227 |
# END $OP eq DELETE_CONFIRM |
| 226 |
################## DELETE_CONFIRMED ################################## |
228 |
################## DELETE_CONFIRMED ################################## |
|
Lines 268-273
if ($op eq 'add_form') {
Link Here
|
| 268 |
category_type => $results->[$i]{'category_type'}, |
270 |
category_type => $results->[$i]{'category_type'}, |
| 269 |
"type_".$results->[$i]{'category_type'} => 1, |
271 |
"type_".$results->[$i]{'category_type'} => 1, |
| 270 |
branches => \@selected_branches, |
272 |
branches => \@selected_branches, |
|
|
273 |
checkprevissue => $results->[$i]{'checkprevissuebycategory'}, |
| 271 |
); |
274 |
); |
| 272 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
275 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 273 |
my $brief_prefs = _get_brief_messaging_prefs($results->[$i]{'categorycode'}); |
276 |
my $brief_prefs = _get_brief_messaging_prefs($results->[$i]{'categorycode'}); |