koha-cvs
[Top][All Lists]
Advanced

[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);
 }
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]