View | Details | Raw Unified | Return to bug 14493
Collapse All | Expand All

(-)a/misc/export_borrowers.pl (-2 / +4 lines)
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
- 

Return to bug 14493