@@ -, +, @@ ( my $basename = $0 ) =~ s|.*/||; print < \@fields, 'separator|s=s' => \$separator, 'show-header|H' => \$show_header, 'where|w=s' => \$where, 'help|h' => \$help print_usage; exit; $separator = C4::Context->preference('delimiter') || ','; $separator = "\t" if ($separator eq 'tabulation'); $csv->combine(@fields); print $csv->string . "\n"; map { ( defined $member->{$_} and !ref $member->{$_} ) ? $member->{$_} : '' } @fields . $csv->error_input . "]\n" if ( !defined( $csv->string ) ); $member = GetMemberDetails($borrowernumber); $csv->combine( map { ( defined $member->{$_} and !ref $member->{$_} ) ? $member->{$_} : '' } @fields ); die "Invalid character at borrower $borrowernumber: [" . $csv->error_input . "]\n" if ( !defined( $csv->string ) ); print $csv->string . "\n";