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

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-1 / +10 lines)
Lines 268-273 sub _get_sort_bin { Link Here
268
    my $rule = 0;
268
    my $rule = 0;
269
    RULE: foreach my $line (@lines) {
269
    RULE: foreach my $line (@lines) {
270
270
271
        # Skip empty lines and comments
272
        next if ( $line =~ /^\s*($|#)/ );
273
274
        # Skip malformed lines
275
        my $count = () = $line =~ /\Q:/g;
276
        if ( --$count % 3 ) {
277
            warn "Malformed preference line found: '$line'";
278
            next;
279
        }
280
271
        my $match = 0;
281
        my $match = 0;
272
282
273
        # Split the line into fields
283
        # Split the line into fields
274
- 

Return to bug 34737