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