@@ -, +, @@ export_borrowers.pl --where clause - tested -s option with \; - tested -f surname -f borrowernumber to have multiple fields specified - tested -w with "borrowernumber > 100" and similar with and without results - if no results a message is shown - tested -h shows documentation for new options --- misc/export_borrowers.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/misc/export_borrowers.pl +++ a/misc/export_borrowers.pl @@ -50,7 +50,10 @@ $0 -h If no separator is specifield, a comma will be used. -H, --show-header Print field names on first row -w, --where=CONDITION Condition to filter borrowers to export - (SQL where clause) + (SQL where clause). + CONDITION must be enclosed by double quotes and + if needed, where value by single quotes. + example : --where "surname='De Lattre'" -h, --help Show this help USAGE @@ -88,7 +91,7 @@ my $csv = Text::CSV->new( { sep_char => $separator, binary => 1 } ); # If the user did not specify any field to export, we assume he wants them all # We retrieve the first borrower informations to get field names -my ($borrowernumber) = $sth->fetchrow_array; +my ($borrowernumber) = $sth->fetchrow_array or die "No borrower to export"; my $member = GetMemberDetails($borrowernumber); @fields = keys %$member unless (@fields); --