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, |