|
Lines 54-60
my $test;
Link Here
|
| 54 |
# the ILS didn't check the item in, and there's no patron id. |
54 |
# the ILS didn't check the item in, and there's no patron id. |
| 55 |
$test = clone($checkin_test_template); |
55 |
$test = clone($checkin_test_template); |
| 56 |
$test->{id} = 'Checkin: Item not checked out'; |
56 |
$test->{id} = 'Checkin: Item not checked out'; |
| 57 |
$test->{pat} = qr/^100YNN$datepat/o; |
57 |
$test->{pat} = qr/^100YN[NY]$datepat/o; |
| 58 |
$test->{fields} = [grep $_->{field} ne FID_PATRON_ID, @{$test->{fields}}]; |
58 |
$test->{fields} = [grep $_->{field} ne FID_PATRON_ID, @{$test->{fields}}]; |
| 59 |
|
59 |
|
| 60 |
push @tests, $test; |
60 |
push @tests, $test; |
| 61 |
- |
|
|