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