7 use C4::SIP::ILS::Item;
10 my $compare = (@ARGV) ? shift : 0;
12 print "Enter item barcode: ";
17 my $item = C4::SIP::ILS::Item->new($in);
19 print "No item ($in)";
22 for (qw(marc marcxml)) {
23 $item->{$_} = 'suppressed...';
25 my $queue = $item->hold_queue();
26 print "Item ($in): ", Dumper($item);
27 print "hold_queue: ", Dumper($queue);
29 if ($queue and scalar(@$queue)) {
30 $holdernumber = $queue->[0]->{borrowernumber};
31 print "first borrowernumber: $holdernumber\n";
34 print "Enter patron barcode: ";
36 defined($barcode) or next;
39 my $x = ILS::Item::_barcode_to_borrowernumber($barcode) || 'UNDEF';
40 print " converts to: $x\n";
41 printf " compares as: %s\n",
42 ($item->barcode_is_borrowernumber($barcode,$holdernumber) ? 'TRUE' : 'FALSE');