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