From 38c72dd374281007877eb9f0a67bf2ccf04f128a Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 16 Sep 2004 15:06:46 +0000
Subject: [PATCH] enabling # (| still possible too) for repeatable subfields

---
 C4/Biblio.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 3ae9ad11ae..886936da89 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -418,7 +418,7 @@ sub MARCaddsubfield {
     if ( not($subfieldcode) ) {
         $subfieldcode = ' ';
     }
-    my @subfieldvalues = split /\|/, $subfieldvalues;
+    my @subfieldvalues = split /\||#/, $subfieldvalues;
     foreach my $subfieldvalue (@subfieldvalues) {
         if ( length($subfieldvalue) > 255 ) {
             $dbh->do(
@@ -2540,6 +2540,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.104  2004/09/16 15:06:46  tipaul
+# enabling # (| still possible too) for repeatable subfields
+#
 # Revision 1.103  2004/09/06 14:17:34  tipaul
 # some commented warning added + 1 major bugfix => drop empty fields, NOT fields containing 0
 #
-- 
2.39.5