Lines 56-65
my $multi_batch_count = scalar(@batch_ids);
Link Here
|
56 |
my $card_count = scalar(@label_ids); |
56 |
my $card_count = scalar(@label_ids); |
57 |
my $borrower_count = scalar(@borrower_numbers); |
57 |
my $borrower_count = scalar(@borrower_numbers); |
58 |
|
58 |
|
59 |
if ($op eq 'cud-export') { #FIXME Seems like a GET operation? |
59 |
if ($op eq 'export') { |
60 |
if (@label_ids) { |
60 |
if (@label_ids) { |
61 |
my $label_id_param = '&label_id='; |
61 |
my $label_id_param = '&label_id='; |
62 |
$label_id_param .= join ('&label_id=',@label_ids); |
62 |
$label_id_param .= join ('&label_id=',@label_ids); |
63 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'create-pdf.pl' : 'create-csv.pl'), #FIXME csv not supported, no script? |
63 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'create-pdf.pl' : 'create-csv.pl'), #FIXME csv not supported, no script? |
64 |
batch_id => $batch_ids[0], |
64 |
batch_id => $batch_ids[0], |
65 |
template_id => $template_id, |
65 |
template_id => $template_id, |
Lines 75-82
if ($op eq 'cud-export') { #FIXME Seems like a GET operation?
Link Here
|
75 |
); |
75 |
); |
76 |
} |
76 |
} |
77 |
elsif (@borrower_numbers) { |
77 |
elsif (@borrower_numbers) { |
78 |
my $borrower_number_param = '&borrower_number='; |
78 |
my $borrower_number_param = '&borrower_number='; |
79 |
$borrower_number_param .= join ('&borrower_number=',@borrower_numbers); |
79 |
$borrower_number_param .= join ('&borrower_number=',@borrower_numbers); |
80 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'create-pdf.pl' : 'create-csv.pl'), #FIXME csv not supported, no script? |
80 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'create-pdf.pl' : 'create-csv.pl'), #FIXME csv not supported, no script? |
81 |
template_id => $template_id, |
81 |
template_id => $template_id, |
82 |
layout_id => $layout_id, |
82 |
layout_id => $layout_id, |
83 |
- |
|
|