Lines 1411-1419
subtest 'Log cardnumber change' => sub {
Link Here
|
1411 |
|
1411 |
|
1412 |
my @logs = $schema->resultset('ActionLog')->search( { module => 'MEMBERS', action => 'MODIFY', object => $patron->borrowernumber } ); |
1412 |
my @logs = $schema->resultset('ActionLog')->search( { module => 'MEMBERS', action => 'MODIFY', object => $patron->borrowernumber } ); |
1413 |
my $log_info = from_json( $logs[0]->info ); |
1413 |
my $log_info = from_json( $logs[0]->info ); |
1414 |
is( $log_info->{cardnumber_replaced}->{new_cardnumber}, 'TESTCARDNUMBER', 'Got correct new cardnumber' ); |
1414 |
is( $log_info->{cardnumber}->{after}, 'TESTCARDNUMBER', 'Got correct new cardnumber' ); |
1415 |
is( $log_info->{cardnumber_replaced}->{previous_cardnumber}, $cardnumber, 'Got correct old cardnumber' ); |
1415 |
is( $log_info->{cardnumber}->{before}, $cardnumber, 'Got correct old cardnumber' ); |
1416 |
is( scalar @logs, 2, 'With BorrowerLogs, Change in cardnumber should be logged, as well as general alert of patron mod.' ); |
1416 |
is( scalar @logs, 1, 'With BorrowerLogs, one detailed MODIFY action should be logged for the modification.' ); |
1417 |
}; |
1417 |
}; |
1418 |
|
1418 |
|
1419 |
$schema->storage->txn_rollback; |
1419 |
$schema->storage->txn_rollback; |
1420 |
- |
|
|