|
Lines 94-100
if ($op eq 'add_form') {
Link Here
|
| 94 |
my @selected_branches; |
94 |
my @selected_branches; |
| 95 |
if ($categorycode) { |
95 |
if ($categorycode) { |
| 96 |
my $dbh = C4::Context->dbh; |
96 |
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=?"); |
97 |
my $sth=$dbh->prepare("SELECT * FROM categories WHERE categorycode = ?"); |
| 98 |
$sth->execute($categorycode); |
98 |
$sth->execute($categorycode); |
| 99 |
$data=$sth->fetchrow_hashref; |
99 |
$data=$sth->fetchrow_hashref; |
| 100 |
|
100 |
|
|
Lines 119-140
if ($op eq 'add_form') {
Link Here
|
| 119 |
}; |
119 |
}; |
| 120 |
} |
120 |
} |
| 121 |
|
121 |
|
| 122 |
$template->param(description => $data->{'description'}, |
122 |
$template->param( |
| 123 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
123 |
description => $data->{'description'}, |
| 124 |
enrolmentperioddate => C4::Dates::format_date($data->{'enrolmentperioddate'}), |
124 |
upperagelimit => $data->{'upperagelimit'}, |
| 125 |
upperagelimit => $data->{'upperagelimit'}, |
125 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
| 126 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
126 |
enrolmentfee => sprintf( "%.2f", $data->{'enrolmentfee'} ), |
| 127 |
enrolmentfee => sprintf("%.2f",$data->{'enrolmentfee'}), |
127 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
| 128 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
128 |
issuelimit => $data->{'issuelimit'}, |
| 129 |
issuelimit => $data->{'issuelimit'}, |
129 |
reservefee => sprintf( "%.2f", $data->{'reservefee'} ), |
| 130 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
130 |
hidelostitems => $data->{'hidelostitems'}, |
| 131 |
hidelostitems => $data->{'hidelostitems'}, |
131 |
category_type => $data->{'category_type'}, |
| 132 |
category_type => $data->{'category_type'}, |
132 |
SMSSendDriver => C4::Context->preference("SMSSendDriver"), |
| 133 |
SMSSendDriver => C4::Context->preference("SMSSendDriver"), |
133 |
branches_loop => \@branches_loop, |
| 134 |
TalkingTechItivaPhone => C4::Context->preference("TalkingTechItivaPhoneNotification"), |
134 |
default_privacy => $data->{'default_privacy'}, |
| 135 |
"type_".$data->{'category_type'} => 1, |
135 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
| 136 |
branches_loop => \@branches_loop, |
136 |
enrolmentperioddate => |
| 137 |
); |
137 |
C4::Dates::format_date( $data->{'enrolmentperioddate'} ), |
|
|
138 |
TalkingTechItivaPhone => |
| 139 |
C4::Context->preference("TalkingTechItivaPhoneNotification"), |
| 140 |
"type_" . $data->{'category_type'} => 1, |
| 141 |
); |
| 142 |
|
| 138 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
143 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 139 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
144 |
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode } , $template); |
| 140 |
} |
145 |
} |
|
Lines 150-157
if ($op eq 'add_form') {
Link Here
|
| 150 |
} |
155 |
} |
| 151 |
|
156 |
|
| 152 |
if ($is_a_modif) { |
157 |
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=?"); |
158 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,hidelostitems=?,overduenoticerequired=?,category_type=?, default_privacy=? WHERE categorycode=?"); |
| 154 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','categorycode')); |
159 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','default_privacy','categorycode')); |
| 155 |
my @branches = $input->param("branches"); |
160 |
my @branches = $input->param("branches"); |
| 156 |
if ( @branches ) { |
161 |
if ( @branches ) { |
| 157 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
162 |
$sth = $dbh->prepare("DELETE FROM categories_branches WHERE categorycode = ?"); |
|
Lines 168-178
if ($op eq 'add_form') {
Link Here
|
| 168 |
$sth->execute; |
173 |
$sth->execute; |
| 169 |
} |
174 |
} |
| 170 |
} |
175 |
} |
| 171 |
$sth->finish; |
|
|
| 172 |
} else { |
176 |
} else { |
| 173 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?,?)"); |
177 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type,default_privacy) values (?,?,?,?,?,?,?,?,?,?,?,?)"); |
| 174 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type')); |
178 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type', 'default_privacy')); |
| 175 |
$sth->finish; |
|
|
| 176 |
} |
179 |
} |
| 177 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
180 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
| 178 |
C4::Form::MessagingPreferences::handle_form_action($input, |
181 |
C4::Form::MessagingPreferences::handle_form_action($input, |