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