Lines 143-159
if ($do_it) {
Link Here
|
143 |
my $format = 'csv'; |
143 |
my $format = 'csv'; |
144 |
my $reportname = $input->param('basename'); |
144 |
my $reportname = $input->param('basename'); |
145 |
my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ; |
145 |
my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ; |
146 |
#my $reportfilename = "$reportname.html" ; |
|
|
147 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
146 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
148 |
my @rows; |
147 |
my @rows; |
149 |
foreach my $row (@loopresult) { |
148 |
foreach my $row (@loopresult) { |
150 |
my @rowValues; |
149 |
my @rowValues; |
151 |
push @rowValues, $row->{mfirstname}, |
150 |
push @rowValues, $row->{mfirstname}. ' ' . $row->{msurname}, |
152 |
$row->{cardnumber}, |
151 |
$row->{cardnumber}, |
153 |
$row->{bfirstname}, |
152 |
$row->{bfirstname} . ' ' . $row->{bsurname}, |
154 |
$row->{branchname}, |
153 |
$row->{branchname}, |
155 |
$row->{date}, |
154 |
$row->{date}, |
156 |
$row->{accounttype}, |
155 |
$row->{accounttype}, |
|
|
156 |
$row->{note}, |
157 |
$row->{amount}, |
157 |
$row->{amount}, |
158 |
$row->{title}, |
158 |
$row->{title}, |
159 |
$row->{barcode}, |
159 |
$row->{barcode}, |
160 |
- |
|
|