Lines 43-49
$0 -h
Link Here
|
43 |
-f, --field=FIELD Field to export. It is repeatable and has to match |
43 |
-f, --field=FIELD Field to export. It is repeatable and has to match |
44 |
keys returned by the GetMemberDetails function. |
44 |
keys returned by the GetMemberDetails function. |
45 |
If no field is specified, then all fields will be |
45 |
If no field is specified, then all fields will be |
46 |
exported. |
46 |
exported. The field patron_attributes exports all |
|
|
47 |
patron_attributes. |
47 |
-s, --separator=CHAR This character will be used to separate fields. |
48 |
-s, --separator=CHAR This character will be used to separate fields. |
48 |
Some characters like | or ; will need to be escaped |
49 |
Some characters like | or ; will need to be escaped |
49 |
in the parameter setting, like -s=\\| or -s=\\; |
50 |
in the parameter setting, like -s=\\| or -s=\\; |
Lines 100-105
my $csv = Text::CSV->new( { sep_char => $separator, binary => 1 } );
Link Here
|
100 |
# We retrieve the first borrower informations to get field names |
101 |
# We retrieve the first borrower informations to get field names |
101 |
my ($borrowernumber) = $sth->fetchrow_array or die "No borrower to export"; |
102 |
my ($borrowernumber) = $sth->fetchrow_array or die "No borrower to export"; |
102 |
my $member = GetMemberDetails($borrowernumber); |
103 |
my $member = GetMemberDetails($borrowernumber); |
|
|
104 |
$member->{'patron_attributes'} = join (",", map { $_->{code}.":".$_->{value} } @{GetBorrowerAttributes($borrowernumber)}); |
103 |
@fields = keys %$member unless (@fields); |
105 |
@fields = keys %$member unless (@fields); |
104 |
|
106 |
|
105 |
if ($show_header) { |
107 |
if ($show_header) { |
Lines 121-126
print $csv->string . "\n";
Link Here
|
121 |
|
123 |
|
122 |
while ( my $borrowernumber = $sth->fetchrow_array ) { |
124 |
while ( my $borrowernumber = $sth->fetchrow_array ) { |
123 |
$member = GetMemberDetails($borrowernumber); |
125 |
$member = GetMemberDetails($borrowernumber); |
|
|
126 |
$member->{'patron_attributes'} = join (",", map { $_->{code}.":".$_->{value} } @{GetBorrowerAttributes($borrowernumber)}); |
124 |
$csv->combine( |
127 |
$csv->combine( |
125 |
map { |
128 |
map { |
126 |
( defined $member->{$_} and !ref $member->{$_} ) |
129 |
( defined $member->{$_} and !ref $member->{$_} ) |
127 |
- |
|
|