Lines 92-98
if ($op eq 'add_form') {
Link Here
|
92 |
my $data; |
92 |
my $data; |
93 |
if ($categorycode) { |
93 |
if ($categorycode) { |
94 |
my $dbh = C4::Context->dbh; |
94 |
my $dbh = C4::Context->dbh; |
95 |
my $sth=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,overduenoticerequired,category_type from categories where categorycode=?"); |
95 |
my $sth=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
96 |
$sth->execute($categorycode); |
96 |
$sth->execute($categorycode); |
97 |
$data=$sth->fetchrow_hashref; |
97 |
$data=$sth->fetchrow_hashref; |
98 |
$sth->finish; |
98 |
$sth->finish; |
Lines 109-114
if ($op eq 'add_form') {
Link Here
|
109 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
109 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
110 |
issuelimit => $data->{'issuelimit'}, |
110 |
issuelimit => $data->{'issuelimit'}, |
111 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
111 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
|
|
112 |
hidelostitems => $data->{'hidelostitems'}, |
112 |
category_type => $data->{'category_type'}, |
113 |
category_type => $data->{'category_type'}, |
113 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
114 |
DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), |
114 |
"type_".$data->{'category_type'} => 1, |
115 |
"type_".$data->{'category_type'} => 1, |
Lines 128-139
if ($op eq 'add_form') {
Link Here
|
128 |
} |
129 |
} |
129 |
|
130 |
|
130 |
if ($is_a_modif) { |
131 |
if ($is_a_modif) { |
131 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,overduenoticerequired=?,category_type=? WHERE categorycode=?"); |
132 |
my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?, enrolmentperioddate=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,hidelostitems=?,overduenoticerequired=?,category_type=? WHERE categorycode=?"); |
132 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','overduenoticerequired','category_type','categorycode')); |
133 |
$sth->execute(map { $input->param($_) } ('description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type','categorycode')); |
133 |
$sth->finish; |
134 |
$sth->finish; |
134 |
} else { |
135 |
} else { |
135 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?)"); |
136 |
my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,hidelostitems,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?,?)"); |
136 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','overduenoticerequired','category_type')); |
137 |
$sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','enrolmentperioddate','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','hidelostitems','overduenoticerequired','category_type')); |
137 |
$sth->finish; |
138 |
$sth->finish; |
138 |
} |
139 |
} |
139 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
140 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
Lines 156-162
if ($op eq 'add_form') {
Link Here
|
156 |
$sth->finish; |
157 |
$sth->finish; |
157 |
$template->param(total => $total->{'total'}); |
158 |
$template->param(total => $total->{'total'}); |
158 |
|
159 |
|
159 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,overduenoticerequired,category_type from categories where categorycode=?"); |
160 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
160 |
$sth2->execute($categorycode); |
161 |
$sth2->execute($categorycode); |
161 |
my $data=$sth2->fetchrow_hashref; |
162 |
my $data=$sth2->fetchrow_hashref; |
162 |
$sth2->finish; |
163 |
$sth2->finish; |
Lines 173-178
if ($op eq 'add_form') {
Link Here
|
173 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
174 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
174 |
issuelimit => $data->{'issuelimit'}, |
175 |
issuelimit => $data->{'issuelimit'}, |
175 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
176 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
|
|
177 |
hidelostitems => $data->{'hidelostitems'}, |
176 |
category_type => $data->{'category_type'}, |
178 |
category_type => $data->{'category_type'}, |
177 |
); |
179 |
); |
178 |
# END $OP eq DELETE_CONFIRM |
180 |
# END $OP eq DELETE_CONFIRM |
Lines 205-210
if ($op eq 'add_form') {
Link Here
|
205 |
overduenoticerequired => $results->[$i]{'overduenoticerequired'}, |
207 |
overduenoticerequired => $results->[$i]{'overduenoticerequired'}, |
206 |
issuelimit => $results->[$i]{'issuelimit'}, |
208 |
issuelimit => $results->[$i]{'issuelimit'}, |
207 |
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}), |
209 |
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}), |
|
|
210 |
hidelostitems => $results->[$i]{'hidelostitems'}, |
208 |
category_type => $results->[$i]{'category_type'}, |
211 |
category_type => $results->[$i]{'category_type'}, |
209 |
"type_".$results->[$i]{'category_type'} => 1); |
212 |
"type_".$results->[$i]{'category_type'} => 1); |
210 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
213 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |