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