[Koha-cvs] koha/C4 Labels.pm [dev_week]

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/10/21 23:23:47

Modified files:
	C4             : Labels.pm 

Log message:
	lccn,  strip something occuring spaces too

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.52&r2=1.3.4.53

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.52
retrieving revision 1.3.4.53
diff -u -b -r1.3.4.52 -r1.3.4.53
--- Labels.pm	21 Oct 2007 23:03:38 -0000	1.3.4.52
+++ Labels.pm	21 Oct 2007 23:23:46 -0000	1.3.4.53
@@ -121,13 +121,13 @@
         ([a-zA-Z]+)             # HE
         ([0-9]+\.*[0-9]+\s*)    # 8700.7 or 8700 without '.', 
                                 # handles trailing space too
-        (\.[a-zA-Z0-9]+)        #.P6T44
-        (\s)                    # space
+        (\.[a-zA-Z0-9]+\s*)        #.P6T44
         ([0-9]+)                # 1983
         /x;
 
-    splice (@splits, 2,1); 
-    splice (@splits, 3,1); 
+# strip something occuring spaces too
+$splits[1] =~ s/\s+$//;
+$splits[2] =~ s/\s+$//;
 
     return @splits;
 }