From fc63a2479fcd80815af8185558a21168f4320ad7 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Wed, 28 Mar 2012 16:17:45 +0200
Subject: [PATCH] Bug 5354 follow-up : dealing with a wrong regexp

I could not reproduce the working behaviour when I found that the tiny follow-up introduced a bug
| being a reserved char in regexp, split '|' is not splitting on '|' ! we must write '\|' !
---
 serials/subscription-add.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl
index b0f3625343..0a33875f7d 100755
--- a/serials/subscription-add.pl
+++ b/serials/subscription-add.pl
@@ -115,7 +115,7 @@ if ($op eq 'modify' || $op eq 'dup' || $op eq 'modsubscription') {
 
     if ( $op eq 'dup' ) {
         my $dont_copy_fields = C4::Context->preference('SubscriptionDuplicateDroppedInput');
-        my @fields_id = map { fieldid => $_ }, split '|', $dont_copy_fields;
+        my @fields_id = map { fieldid => $_ }, split '\|', $dont_copy_fields;
         $template->param( dont_export_field_loop => \@fields_id );
     }
 }
-- 
2.39.5