|
Lines 63-73
ok(
Link Here
|
| 63 |
|
63 |
|
| 64 |
## Check GetPendingModifications |
64 |
## Check GetPendingModifications |
| 65 |
my $pending = Koha::Borrower::Modifications->GetPendingModifications(); |
65 |
my $pending = Koha::Borrower::Modifications->GetPendingModifications(); |
| 66 |
ok( $pending->[0]->{'firstname'} eq 'Kyle', 'Test GetPendingModifications()' ); |
|
|
| 67 |
ok( |
66 |
ok( |
| 68 |
$pending->[1]->{'firstname'} eq 'Sandy', |
67 |
$pending->[0]->{'firstname'} eq 'Sandy', |
| 69 |
'Test GetPendingModifications() again' |
68 |
'Test GetPendingModifications() again' |
| 70 |
); |
69 |
); |
|
|
70 |
ok( $pending->[1]->{'firstname'} eq 'Kyle', 'Test GetPendingModifications()' ); |
| 71 |
|
71 |
|
| 72 |
## This should delete the row from the table |
72 |
## This should delete the row from the table |
| 73 |
Koha::Borrower::Modifications->DenyModifications('3'); |
73 |
Koha::Borrower::Modifications->DenyModifications('3'); |
| 74 |
- |
|
|