Lines 45-50
use C4::Branch;
Link Here
|
45 |
use C4::Output; |
45 |
use C4::Output; |
46 |
use C4::Dates; |
46 |
use C4::Dates; |
47 |
use C4::Form::MessagingPreferences; |
47 |
use C4::Form::MessagingPreferences; |
|
|
48 |
use Koha::Database; |
48 |
|
49 |
|
49 |
sub StringSearch { |
50 |
sub StringSearch { |
50 |
my ($searchstring,$type)=@_; |
51 |
my ($searchstring,$type)=@_; |
Lines 188-223
if ($op eq 'add_form') {
Link Here
|
188 |
################## DELETE_CONFIRM ################################## |
189 |
################## DELETE_CONFIRM ################################## |
189 |
# called by default form, used to confirm deletion of data in DB |
190 |
# called by default form, used to confirm deletion of data in DB |
190 |
} elsif ($op eq 'delete_confirm') { |
191 |
} elsif ($op eq 'delete_confirm') { |
|
|
192 |
my $schema = Koha::Database->new()->schema(); |
191 |
$template->param(delete_confirm => 1); |
193 |
$template->param(delete_confirm => 1); |
192 |
|
194 |
|
193 |
my $dbh = C4::Context->dbh; |
195 |
my $count = $schema->resultset('Borrower')->search( { categorycode => $categorycode } )->count(); |
194 |
my $sth=$dbh->prepare("select count(*) as total from borrowers where categorycode=?"); |
196 |
my $category = $schema->resultset('Category')->find($categorycode); |
195 |
$sth->execute($categorycode); |
197 |
$category->enrolmentperioddate( C4::Dates::format_date( $category->enrolmentperioddate() ) ); |
196 |
my $total = $sth->fetchrow_hashref; |
198 |
$template->param( category => $category, patrons_in_category => $count ); |
197 |
$sth->finish; |
199 |
# END $OP eq DELETE_CONFIRM |
198 |
$template->param(total => $total->{'total'}); |
|
|
199 |
|
200 |
my $sth2=$dbh->prepare("select categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,enrolmentfee,issuelimit,reservefee,hidelostitems,overduenoticerequired,category_type from categories where categorycode=?"); |
201 |
$sth2->execute($categorycode); |
202 |
my $data=$sth2->fetchrow_hashref; |
203 |
$sth2->finish; |
204 |
if ($total->{'total'} >0) { |
205 |
$template->param(totalgtzero => 1); |
206 |
} |
207 |
|
208 |
$template->param( description => $data->{'description'}, |
209 |
enrolmentperiod => $data->{'enrolmentperiod'}, |
210 |
enrolmentperioddate => C4::Dates::format_date($data->{'enrolmentperioddate'}), |
211 |
upperagelimit => $data->{'upperagelimit'}, |
212 |
dateofbirthrequired => $data->{'dateofbirthrequired'}, |
213 |
enrolmentfee => sprintf("%.2f",$data->{'enrolmentfee'}), |
214 |
overduenoticerequired => $data->{'overduenoticerequired'}, |
215 |
issuelimit => $data->{'issuelimit'}, |
216 |
reservefee => sprintf("%.2f",$data->{'reservefee'}), |
217 |
hidelostitems => $data->{'hidelostitems'}, |
218 |
category_type => $data->{'category_type'}, |
219 |
); |
220 |
# END $OP eq DELETE_CONFIRM |
221 |
################## DELETE_CONFIRMED ################################## |
200 |
################## DELETE_CONFIRMED ################################## |
222 |
# called by delete_confirm, used to effectively confirm deletion of data in DB |
201 |
# called by delete_confirm, used to effectively confirm deletion of data in DB |
223 |
} elsif ($op eq 'delete_confirmed') { |
202 |
} elsif ($op eq 'delete_confirmed') { |
Lines 243-263
if ($op eq 'add_form') {
Link Here
|
243 |
while ( my $branch = $sth->fetchrow_hashref ) { |
222 |
while ( my $branch = $sth->fetchrow_hashref ) { |
244 |
push @selected_branches, $branch; |
223 |
push @selected_branches, $branch; |
245 |
} |
224 |
} |
246 |
my %row = ( |
225 |
my %row = ( |
247 |
categorycode => $results->[$i]{'categorycode'}, |
226 |
branches => \@selected_branches, |
248 |
description => $results->[$i]{'description'}, |
227 |
categorycode => $results->[$i]{'categorycode'}, |
249 |
enrolmentperiod => $results->[$i]{'enrolmentperiod'}, |
228 |
description => $results->[$i]{'description'}, |
250 |
enrolmentperioddate => C4::Dates::format_date($results->[$i]{'enrolmentperioddate'}), |
229 |
enrolmentperiod => $results->[$i]{'enrolmentperiod'}, |
251 |
upperagelimit => $results->[$i]{'upperagelimit'}, |
230 |
upperagelimit => $results->[$i]{'upperagelimit'}, |
252 |
dateofbirthrequired => $results->[$i]{'dateofbirthrequired'}, |
231 |
dateofbirthrequired => $results->[$i]{'dateofbirthrequired'}, |
253 |
enrolmentfee => sprintf("%.2f",$results->[$i]{'enrolmentfee'}), |
232 |
overduenoticerequired => $results->[$i]{'overduenoticerequired'}, |
254 |
overduenoticerequired => $results->[$i]{'overduenoticerequired'}, |
233 |
issuelimit => $results->[$i]{'issuelimit'}, |
255 |
issuelimit => $results->[$i]{'issuelimit'}, |
234 |
hidelostitems => $results->[$i]{'hidelostitems'}, |
256 |
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}), |
235 |
category_type => $results->[$i]{'category_type'}, |
257 |
hidelostitems => $results->[$i]{'hidelostitems'}, |
236 |
default_privacy => $results->[$i]{'default_privacy'}, |
258 |
category_type => $results->[$i]{'category_type'}, |
237 |
enrolmentfee => sprintf( "%.2f", $results->[$i]{'enrolmentfee'} ), |
259 |
"type_".$results->[$i]{'category_type'} => 1, |
238 |
reservefee => sprintf( "%.2f", $results->[$i]{'reservefee'} ), |
260 |
branches => \@selected_branches, |
239 |
enrolmentperioddate => C4::Dates::format_date( $results->[$i]{'enrolmentperioddate'} ), |
|
|
240 |
"type_" . $results->[$i]{'category_type'} => 1, |
261 |
); |
241 |
); |
262 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
242 |
if (C4::Context->preference('EnhancedMessagingPreferences')) { |
263 |
my $brief_prefs = _get_brief_messaging_prefs($results->[$i]{'categorycode'}); |
243 |
my $brief_prefs = _get_brief_messaging_prefs($results->[$i]{'categorycode'}); |