|
Lines 677-685
sub merge_with {
Link Here
|
| 677 |
$patron->move_to_deleted(); |
677 |
$patron->move_to_deleted(); |
| 678 |
$patron->delete(); |
678 |
$patron->delete(); |
| 679 |
|
679 |
|
| 680 |
if (C4::Context->preference("BorrowersLog")){ |
680 |
if ( C4::Context->preference("BorrowersLog") ) { |
| 681 |
my $info = $patron->firstname. " " . $patron->surname . " (".$patron->cardnumber . ")". " has been merged into " . $self->firstname . " " . $self->surname . " (".$self->cardnumber . ")" ; |
681 |
my $info = |
| 682 |
logaction("MEMBERS", "PATRON_MERGE", $self->id, $info ); |
682 |
$patron->firstname . " " |
|
|
683 |
. $patron->surname . " (" |
| 684 |
. $patron->cardnumber . ")" |
| 685 |
. " has been merged into " |
| 686 |
. $self->firstname . " " |
| 687 |
. $self->surname . " (" |
| 688 |
. $self->cardnumber . ")"; |
| 689 |
logaction( "MEMBERS", "PATRON_MERGE", $self->id, $info ); |
| 683 |
} |
690 |
} |
| 684 |
} |
691 |
} |
| 685 |
}); |
692 |
}); |
| 686 |
- |
|
|