|
Lines 104-109
sub encode {
Link Here
|
| 104 |
$self->{transmission} .= $self->user_data_message_segments(); |
104 |
$self->{transmission} .= $self->user_data_message_segments(); |
| 105 |
|
105 |
|
| 106 |
$self->{transmission} .= $self->trailing_service_segments(); |
106 |
$self->{transmission} .= $self->trailing_service_segments(); |
|
|
107 |
|
| 108 |
# Guard against CR LF etc being added in data from DB |
| 109 |
$self->{transmission}=~s/[\r\n\t]//g; |
| 110 |
|
| 107 |
return $self->{transmission}; |
111 |
return $self->{transmission}; |
| 108 |
} |
112 |
} |
| 109 |
|
113 |
|
|
Lines 406-412
sub order_line {
Link Here
|
| 406 |
my $ol_fields = { budget_code => $budget->{budget_code}, }; |
410 |
my $ol_fields = { budget_code => $budget->{budget_code}, }; |
| 407 |
if ( $orderline->order_vendornote ) { |
411 |
if ( $orderline->order_vendornote ) { |
| 408 |
$ol_fields->{servicing_instruction} = $orderline->order_vendornote; |
412 |
$ol_fields->{servicing_instruction} = $orderline->order_vendornote; |
|
|
413 |
chomp $ol_fields->{servicing_instruction}; |
| 409 |
} |
414 |
} |
|
|
415 |
|
| 410 |
my $item_fields = []; |
416 |
my $item_fields = []; |
| 411 |
for my $item (@items) { |
417 |
for my $item (@items) { |
| 412 |
push @{$item_fields}, |
418 |
push @{$item_fields}, |
| 413 |
- |
|
|