Lines 233-239
sub GetBasketAsCSV {
Link Here
|
233 |
my $output; |
233 |
my $output; |
234 |
|
234 |
|
235 |
# TODO: Translate headers |
235 |
# TODO: Translate headers |
236 |
my @headers = qw(contractname ordernumber line entrydate isbn author title publishercode collectiontitle notes quantity rrp); |
236 |
my @headers = qw(contractname ordernumber entrydate isbn author title publishercode collectiontitle notes quantity rrp); |
237 |
|
237 |
|
238 |
$csv->combine(@headers); |
238 |
$csv->combine(@headers); |
239 |
$output = $csv->string() . "\n"; |
239 |
$output = $csv->string() . "\n"; |
Lines 241-256
sub GetBasketAsCSV {
Link Here
|
241 |
my @rows; |
241 |
my @rows; |
242 |
foreach my $order (@orders) { |
242 |
foreach my $order (@orders) { |
243 |
my @cols; |
243 |
my @cols; |
244 |
my $bd = GetBiblioData($order->{'biblionumber'}); |
|
|
245 |
push(@cols, |
244 |
push(@cols, |
246 |
$contract->{'contractname'}, |
245 |
$contract->{'contractname'}, |
247 |
$order->{'ordernumber'}, |
246 |
$order->{'ordernumber'}, |
248 |
$order->{'entrydate'}, |
247 |
$order->{'entrydate'}, |
249 |
$order->{'isbn'}, |
248 |
$order->{'isbn'}, |
250 |
$bd->{'author'}, |
249 |
$order->{'author'}, |
251 |
$bd->{'title'}, |
250 |
$order->{'title'}, |
252 |
$bd->{'publishercode'}, |
251 |
$order->{'publishercode'}, |
253 |
$bd->{'collectiontitle'}, |
252 |
$order->{'collectiontitle'}, |
254 |
$order->{'notes'}, |
253 |
$order->{'notes'}, |
255 |
$order->{'quantity'}, |
254 |
$order->{'quantity'}, |
256 |
$order->{'rrp'}, |
255 |
$order->{'rrp'}, |
Lines 258-267
sub GetBasketAsCSV {
Link Here
|
258 |
push (@rows, \@cols); |
257 |
push (@rows, \@cols); |
259 |
} |
258 |
} |
260 |
|
259 |
|
261 |
# Sort by publishercode |
|
|
262 |
# TODO: Sort by publishercode then by title |
263 |
@rows = sort { @$a[7] cmp @$b[7] } @rows; |
264 |
|
265 |
foreach my $row (@rows) { |
260 |
foreach my $row (@rows) { |
266 |
$csv->combine(@$row); |
261 |
$csv->combine(@$row); |
267 |
$output .= $csv->string() . "\n"; |
262 |
$output .= $csv->string() . "\n"; |
268 |
- |
|
|