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