12 print "Enter patron barcode: ";
17 my $patron = ILS::Patron->new($in);
18 print Dumper($patron);
20 print "Enter patron password: ";
23 print "Raw password is: " . $patron->{password}, "\n";
24 print " check_password: " . $patron->check_password($in), "\n";
25 print " sipbool: " . sipbool($patron->check_password($in)), "\n";