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