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

(-)a/Koha/Edifact/Order.pm (-1 / +1 lines)
Lines 512-518 sub imd_segment { Link Here
512
        }
512
        }
513
        $odd = !$odd;
513
        $odd = !$odd;
514
    }
514
    }
515
    if ( @segs && $segs[-1] !~ m/$seg_terminator$/o ) {
515
    if ( @segs && $segs[-1] !~ m/[^?]$seg_terminator$/o ) {
516
        $segs[-1] .= $seg_terminator;
516
        $segs[-1] .= $seg_terminator;
517
    }
517
    }
518
    return @segs;
518
    return @segs;
(-)a/t/Ediorder.t (-2 / +12 lines)
Lines 3-9 use strict; Link Here
3
use warnings;
3
use warnings;
4
use FindBin qw( $Bin );
4
use FindBin qw( $Bin );
5
5
6
use Test::More tests => 8;
6
use Test::More tests => 10;
7
7
8
BEGIN { use_ok('Koha::Edifact::Order') }
8
BEGIN { use_ok('Koha::Edifact::Order') }
9
9
Lines 55-60 $data_to_encode .= '??'; Link Here
55
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'},
55
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'},
56
    'IMD segment deals with quoted character at end' );
56
    'IMD segment deals with quoted character at end' );
57
57
58
# special case for text ending in apostrophe e.g. nuthin'
59
$data_to_encode .= q{?'};
60
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode );
61
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC???''},
62
    'IMD segment deals with quoted apostrophe at end' );
63
64
$data_to_encode =~s/\?'$//;
65
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode );
66
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'},
67
    'IMD segment deals with apostrophe preceded by quoted ?  at end' );
68
58
my $isbn = '3540556753';
69
my $isbn = '3540556753';
59
my $ean  = '9783540556756';
70
my $ean  = '9783540556756';
60
71
61
- 

Return to bug 23251