Lines 720-728
sub merge_with {
Link Here
|
720 |
$patron->move_to_deleted(); |
720 |
$patron->move_to_deleted(); |
721 |
$patron->delete(); |
721 |
$patron->delete(); |
722 |
|
722 |
|
723 |
if (C4::Context->preference("BorrowersLog")){ |
723 |
if ( C4::Context->preference("BorrowersLog") ) { |
724 |
my $info = $patron->firstname. " " . $patron->surname . " (".$patron->cardnumber . ")". " has been merged into " . $self->firstname . " " . $self->surname . " (".$self->cardnumber . ")" ; |
724 |
my $info = |
725 |
logaction("MEMBERS", "PATRON_MERGE", $self->id, $info ); |
725 |
$patron->firstname . " " |
|
|
726 |
. $patron->surname . " (" |
727 |
. $patron->cardnumber . ")" |
728 |
. " has been merged into " |
729 |
. $self->firstname . " " |
730 |
. $self->surname . " (" |
731 |
. $self->cardnumber . ")"; |
732 |
logaction( "MEMBERS", "PATRON_MERGE", $self->id, $info ); |
726 |
} |
733 |
} |
727 |
} |
734 |
} |
728 |
}); |
735 |
}); |
729 |
- |
|
|