|
Lines 43-48
use Koha::Cities;
Link Here
|
| 43 |
use Koha::DateUtils; |
43 |
use Koha::DateUtils; |
| 44 |
use Koha::Libraries; |
44 |
use Koha::Libraries; |
| 45 |
use Koha::Patron::Categories; |
45 |
use Koha::Patron::Categories; |
|
|
46 |
use Koha::Patron::HouseboundRole; |
| 47 |
use Koha::Patron::HouseboundRoles; |
| 46 |
use Koha::Token; |
48 |
use Koha::Token; |
| 47 |
use Email::Valid; |
49 |
use Email::Valid; |
| 48 |
use Module::Load; |
50 |
use Module::Load; |
|
Lines 435-445
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 435 |
if ( exists $data{'borrowernumber'} && C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) { |
437 |
if ( exists $data{'borrowernumber'} && C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) { |
| 436 |
NLSync({ 'borrowernumber' => $borrowernumber }); |
438 |
NLSync({ 'borrowernumber' => $borrowernumber }); |
| 437 |
} |
439 |
} |
| 438 |
} elsif ($op eq 'save'){ |
440 |
|
| 439 |
if ($NoUpdateLogin) { |
441 |
# Create HouseboundRole if necessary. |
| 440 |
delete $newdata{'password'}; |
442 |
# Borrower did not exist, so HouseboundRole *cannot* yet exist. |
| 441 |
delete $newdata{'userid'}; |
443 |
my ( $hsbnd_chooser, $hsbnd_deliverer ) = ( 0, 0 ); |
| 442 |
} |
444 |
$hsbnd_chooser = 1 if $input->param('housebound_chooser'); |
|
|
445 |
$hsbnd_deliverer = 1 if $input->param('housebound_deliverer'); |
| 446 |
# Only create a HouseboundRole if patron has a role. |
| 447 |
if ( $hsbnd_chooser || $hsbnd_deliverer ) { |
| 448 |
Koha::Patron::HouseboundRole->new({ |
| 449 |
borrowernumber_id => $borrowernumber, |
| 450 |
housebound_chooser => $hsbnd_chooser, |
| 451 |
housebound_deliverer => $hsbnd_deliverer, |
| 452 |
})->store; |
| 453 |
} |
| 454 |
|
| 455 |
} elsif ($op eq 'save') { |
| 456 |
|
| 457 |
# Update or create our HouseboundRole if necessary. |
| 458 |
my $housebound_role = Koha::Patron::HouseboundRoles->find($borrowernumber); |
| 459 |
my ( $hsbnd_chooser, $hsbnd_deliverer ) = ( 0, 0 ); |
| 460 |
$hsbnd_chooser = 1 if $input->param('housebound_chooser'); |
| 461 |
$hsbnd_deliverer = 1 if $input->param('housebound_deliverer'); |
| 462 |
if ( $housebound_role ) { |
| 463 |
if ( $hsbnd_chooser || $hsbnd_deliverer ) { |
| 464 |
# Update our HouseboundRole. |
| 465 |
$housebound_role |
| 466 |
->housebound_chooser($hsbnd_chooser) |
| 467 |
->housebound_deliverer($hsbnd_deliverer) |
| 468 |
->store; |
| 469 |
} else { |
| 470 |
$housebound_role->delete; # No longer needed. |
| 471 |
} |
| 472 |
} else { |
| 473 |
# Only create a HouseboundRole if patron has a role. |
| 474 |
if ( $hsbnd_chooser || $hsbnd_deliverer ) { |
| 475 |
$housebound_role = Koha::Patron::HouseboundRole->new({ |
| 476 |
borrowernumber_id => $borrowernumber, |
| 477 |
housebound_chooser => $hsbnd_chooser, |
| 478 |
housebound_deliverer => $hsbnd_deliverer, |
| 479 |
})->store; |
| 480 |
} |
| 481 |
} |
| 482 |
|
| 483 |
if ($NoUpdateLogin) { |
| 484 |
delete $newdata{'password'}; |
| 485 |
delete $newdata{'userid'}; |
| 486 |
} |
| 443 |
&ModMember(%newdata) unless scalar(keys %newdata) <= 1; # bug 4508 - avoid crash if we're not |
487 |
&ModMember(%newdata) unless scalar(keys %newdata) <= 1; # bug 4508 - avoid crash if we're not |
| 444 |
# updating any columns in the borrowers table, |
488 |
# updating any columns in the borrowers table, |
| 445 |
# which can happen if we're only editing the |
489 |
# which can happen if we're only editing the |
|
Lines 703-708
$template->param(
Link Here
|
| 703 |
), |
747 |
), |
| 704 |
); |
748 |
); |
| 705 |
|
749 |
|
|
|
750 |
# HouseboundModule data |
| 751 |
$template->param( |
| 752 |
HouseboundModule => C4::Context->preference("HouseboundModule"), |
| 753 |
housebound_role => Koha::Patron::HouseboundRoles->find($borrowernumber), |
| 754 |
); |
| 755 |
|
| 706 |
if(defined($data{'flags'})){ |
756 |
if(defined($data{'flags'})){ |
| 707 |
$template->param(flags=>$data{'flags'}); |
757 |
$template->param(flags=>$data{'flags'}); |
| 708 |
} |
758 |
} |
| 709 |
- |
|
|