|
Lines 41-47
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 41 |
|
41 |
|
| 42 |
my $results = $keeper->merge_with([ $borrower1->{borrowernumber}, $borrower2->{borrowernumber} ]); |
42 |
my $results = $keeper->merge_with([ $borrower1->{borrowernumber}, $borrower2->{borrowernumber} ]); |
| 43 |
|
43 |
|
| 44 |
my $log=GetLogs("","","",["MEMBERS"],["Merge"],$keeper->id,""); |
44 |
my $log=GetLogs("","","",["MEMBERS"],["PATRON_MERGE"],$keeper->id,""); |
| 45 |
|
45 |
|
| 46 |
my $info_borrower1 = $borrower1->{firstname} . " " . $borrower1->{surname} . " (" . $borrower1->{cardnumber} . ") has been merged into " . |
46 |
my $info_borrower1 = $borrower1->{firstname} . " " . $borrower1->{surname} . " (" . $borrower1->{cardnumber} . ") has been merged into " . |
| 47 |
$keeper->firstname . " " . $keeper->surname . " (" . $keeper->cardnumber . ")"; |
47 |
$keeper->firstname . " " . $keeper->surname . " (" . $keeper->cardnumber . ")"; |
|
Lines 63-69
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 63 |
|
63 |
|
| 64 |
$results = $keeper->merge_with([ $borrower3->{borrowernumber}, $borrower4->{borrowernumber} ]); |
64 |
$results = $keeper->merge_with([ $borrower3->{borrowernumber}, $borrower4->{borrowernumber} ]); |
| 65 |
|
65 |
|
| 66 |
$log=GetLogs("","","",["MEMBERS"],["Merge"],$keeper->id,""); |
66 |
$log=GetLogs("","","",["MEMBERS"],["PATRON_MERGE"],$keeper->id,""); |
| 67 |
$info_log = $log->[0]{info}; |
67 |
$info_log = $log->[0]{info}; |
| 68 |
|
68 |
|
| 69 |
is($info_log,undef,"GetLogs didn't returns results in the log viewer for the merge of " . $borrower3->{borrowernumber}); |
69 |
is($info_log,undef,"GetLogs didn't returns results in the log viewer for the merge of " . $borrower3->{borrowernumber}); |
|
Lines 73-76
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 73 |
is($info_log,undef,"GetLogs didn't returns results in the log viewer for the merge of " . $borrower4->{borrowernumber}); |
73 |
is($info_log,undef,"GetLogs didn't returns results in the log viewer for the merge of " . $borrower4->{borrowernumber}); |
| 74 |
}; |
74 |
}; |
| 75 |
|
75 |
|
| 76 |
$schema->storage->txn_rollback; |
76 |
$schema->storage->txn_rollback; |
| 77 |
- |
|
|