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