[Koha-cvs] koha/C4 Labels.pm [dev_week]
Mason James
szrj1m at yahoo.com
Mon Oct 22 01:23:47 CEST 2007
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;
}
More information about the Koha-cvs
mailing list