|
Lines 792-797
sub merge_with {
Link Here
|
| 792 |
|
792 |
|
| 793 |
$patron->move_to_deleted(); |
793 |
$patron->move_to_deleted(); |
| 794 |
$patron->delete(); |
794 |
$patron->delete(); |
|
|
795 |
|
| 796 |
if ( C4::Context->preference("BorrowersLog") ) { |
| 797 |
my $info = |
| 798 |
$patron->firstname . " " |
| 799 |
. $patron->surname . " (" |
| 800 |
. $patron->cardnumber . ")" |
| 801 |
. " has been merged into " |
| 802 |
. $self->firstname . " " |
| 803 |
. $self->surname . " (" |
| 804 |
. $self->cardnumber . ")"; |
| 805 |
logaction( "MEMBERS", "Merge", $self->id, $info ); |
| 806 |
} |
| 795 |
} |
807 |
} |
| 796 |
} |
808 |
} |
| 797 |
); |
809 |
); |
| 798 |
- |
|
|