[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: |
Sat, 20 Oct 2007 14:44:22 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/10/20 14:44:22
Modified files:
C4 : Labels.pm
Log message:
now splitting lccns - working.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.48&r2=1.3.4.49
Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.48
retrieving revision 1.3.4.49
diff -u -b -r1.3.4.48 -r1.3.4.49
--- Labels.pm 20 Oct 2007 06:45:55 -0000 1.3.4.48
+++ Labels.pm 20 Oct 2007 14:44:22 -0000 1.3.4.49
@@ -246,9 +246,18 @@
my @sorted;
foreach my $field (@fields) {
if ( $$conf_data->{"$field"} && $$item->{"$field"} ) {
+ if ($field eq 'itemcallnumber' &&
+ $$conf_data->{'callnum_split'} == 1 ){
+
+ my @lccns= split_lccn( $$item->{"$field"});
+ foreach my $lccn (@lccns){
+ push (@sorted, $lccn );
+ }
+ } else {
push (@sorted, $$item->{"$field"} );
}
}
+ }
return (@sorted);
}
- [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 <=
- [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, 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, 2007/10/22
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/22