[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 SearchMarc.pm [rel_2_2]
From: |
Henri-Damien LAURENT |
Subject: |
[Koha-cvs] koha/C4 SearchMarc.pm [rel_2_2] |
Date: |
Fri, 03 Nov 2006 10:59:51 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Henri-Damien LAURENT <hdl> 06/11/03 10:59:51
Modified files:
C4 : SearchMarc.pm
Log message:
Bug Fixing : if non valid indicator for title, record display would
have ended to error.
Adding a test on indicator value
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/SearchMarc.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.36.2.34&r2=1.36.2.35
Patches:
Index: SearchMarc.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/SearchMarc.pm,v
retrieving revision 1.36.2.34
retrieving revision 1.36.2.35
diff -u -b -r1.36.2.34 -r1.36.2.35
--- SearchMarc.pm 1 Sep 2006 09:44:10 -0000 1.36.2.34
+++ SearchMarc.pm 3 Nov 2006 10:59:51 -0000 1.36.2.35
@@ -354,7 +354,7 @@
# warn "Here's the sorttitle beforehand:
$titledat->{tag_indicator}=".$sorttitle;
if (length($titledat->{tag_indicator})==2) {
my
$filechar=substr($titledat->{tag_indicator},1,1);
- $sorttitle =
substr($sorttitle,$filechar,-1,""); #remove nonfiling characters
+ $sorttitle =
substr($sorttitle,($filechar>length($sorttitle)?0:$filechar),-1,""); #remove
nonfiling characters
# warn "Here it is afterwards:".$sorttitle;
}
$titles{$bibidno} = $sorttitle; #} = $bibidno;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 SearchMarc.pm [rel_2_2],
Henri-Damien LAURENT <=