From fede41b1617ef164f39f89477ec057dd45ef2bca Mon Sep 17 00:00:00 2001
From: Chris Nighswonger <cnighswonger@foundations.edu>
Date: Thu, 26 Feb 2009 15:43:35 -0500
Subject: [PATCH] Kohabug 2500 Fiction Call Number Splitting Enhancement/Bugfix

The current regexp used to split fiction call numbers does not handle the '.' char well. This patch corrects the regexp so that it behaves as expected.

This patch should be ported to the 3.0.x branch.

[fbcbug 5]

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Labels.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 23307139dd..5178309cda 100644
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -950,7 +950,7 @@ sub split_fcn {
     # Split fiction call numbers based on spaces
     SPLIT_FCN:
     while ($fcn) {
-        if ($fcn =~ m/([A-Za-z0-9]+)(\W?).*?/x) {
+        if ($fcn =~ m/([A-Za-z0-9]+\.?[0-9]?)(\W?).*?/x) {
             push (@fcn_split, $1);
             $fcn = $';
         }
-- 
2.39.5