diff --git a/C4/Serials.pm b/C4/Serials.pm index 0e9d0341da..0260673c0b 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -1217,7 +1217,7 @@ sub _handle_seqno { my ( $seq, $list, $op ) = @_; # op = ADD | REMOVE | CHECK (default: ADD) my $seq_r = $seq; - $seq_r =~ s/([()])/\\$1/g; # Adjust disturbing parentheses for regex, maybe extend in future + $seq_r =~ s/([(){}])/\\$1/g; # Adjust disturbing parentheses for regex, maybe extend in future if ( !$op or $op eq 'ADD' ) { $list .= "; $seq" if $list !~ /(^|;)\s*$seq_r(?=;|$)/;