[Koha-cvs] koha/C4 SearchMarc.pm [rel_2_2]

[Henri-Damien LAURENT]

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;