[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Labels.pm [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/C4 Labels.pm [dev_week] |
Date: |
Sun, 21 Oct 2007 23:23:47 +0000 |
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;
}
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week],
Mason James <=
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/22
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/22