View | Details | Raw Unified | Return to bug 26989
Collapse All | Expand All

(-)a/Koha/Edifact/Order.pm (-1 / +6 lines)
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
- 

Return to bug 26989