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