repo.or.cz
/
koha.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Bug 7904 Change SIP modules to use standard LIB path
[koha.git]
/
C4
/
SIP
/
interactive_patron_dump.pl
blob
afc3bcc55d02f809f226b7b9d4c9eeabdecd591b
1
#!/usr/bin/perl
2
#
3
4
use
warnings
;
5
use
strict
;
6
7
use
C4
::
SIP
::
ILS
::
Patron
;
8
use
Data
::
Dumper
;
9
10
while
(
1
) {
11
print
"Enter patron barcode: "
;
12
my
$in
= <>;
13
defined
(
$in
)
or
last
;
14
chomp
(
$in
);
15
last unless
$in
;
16
my
$patron
=
C4
::
SIP
::
ILS
::
Patron
->
new
(
$in
);
17
print
"Patron (
$in
):
\n
"
,
Dumper
(
$patron
);
18
}