|
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'}); |