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