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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <address@hidden> 06/02/23 03:16:37

Modified files:
        C4             : SearchMarc.pm 

Log message:
        Adds the option to sort titles by nonfilingchars in MARC records. Note
        that for systems with a lot of records (more than 100,000) this will be
        a significant performance hit. Also note that if you don't have your
        syspref for sortbynonfiling chars set the code will not execute.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/SearchMarc.pm.diff?only_with_tag=rel_2_2&tr1=1.36.2.22&tr2=1.36.2.23&r1=text&r2=text

Patches:
Index: koha/C4/SearchMarc.pm
diff -u koha/C4/SearchMarc.pm:1.36.2.22 koha/C4/SearchMarc.pm:1.36.2.23
--- koha/C4/SearchMarc.pm:1.36.2.22     Sat Feb 18 08:41:44 2006
+++ koha/C4/SearchMarc.pm       Thu Feb 23 03:16:37 2006
@@ -335,7 +335,68 @@
                        push @result,$bibid;
                }
        }
-
+if (C4::Context->preference("sortbynonfilingchars")==1) {
+#~~#~~# next part added by SH Modified by JF
+# This code resorts the biblio.title results eliminating the
+# marc non-filing chars
+#this is a big problem perf wise
+#
+# A better way is to create a new column in marc_word called
+# subfield_string.  it's made without non-filing chars and you
+# sort by it ...
+# or maybe you just quer marc_subfield_table in the origiinal query.
+#
+#
+#
+#
+#
+        if ($orderby eq "biblio.title") {    #don't sort by title if another 
orderby is specified
+                my $msth = $dbh->prepare("SELECT tagfield, tagsubfield FROM 
marc_subfield_structure WHERE kohafield='biblio.title'");
+               $msth->execute();    #  get MARC tag and subfield that is 
mapped to biblio.title
+                my $tagdata = $msth->fetchrow_hashref;
+                my $tag = $tagdata->{tagfield};
+                my $subfieldcode = $tagdata->{tagsubfield};
+                $msth->finish;
+
+                my $tsth = $dbh->prepare("SELECT title, tag_indicator FROM 
marc_biblio, marc_subfield_table, biblio
+                                                         WHERE 
marc_biblio.bibid = ?
+                                                         AND 
marc_subfield_table.bibid=marc_biblio.bibid
+                                                         AND 
biblio.biblionumber=marc_biblio.biblionumber
+                                                         AND tag=? and 
subfieldcode=?");
+                my %titles = ();    #to hold title data for sorting
+                my $sorttitle;
+                my $bibidno;
+                my @resultnew = ();    #clear previous list of bibids
+
+                foreach my $bibidno (@result) {
+                        $tsth->execute($bibidno,$tag,$subfieldcode);
+                        my $titledat = $tsth->fetchrow_hashref;
+                        $sorttitle = lc($titledat->{title});
+                        #warn "Here's the sorttitle beforehand:".$sorttitle;
+                        if (length($titledat->{tag_indicator})==2) {
+                                my 
$filechar=substr($titledat->{tag_indicator},1,1);
+                                $sorttitle = 
substr($sorttitle,$filechar,-1,"");  #remove nonfiling characters
+                        #       warn "Here it is afterwards:".$sorttitle;
+                        }
+                        $titles{$bibidno} = $sorttitle; #} = $bibidno;
+#                       push @resultnew, $titles{$sorttitle};
+# sorttitle is key ... biblionumber is value
+# but it needs to be the other way around
+                }
+
+                $tsth->finish;
+                #while ( my ($k,$v) = each %titles ) { warn "$k => $v\n"; }
+
+
+                foreach my $bibses (sort {$titles{$a} cmp $titles{$b}} 
(keys(%titles))) {
+                        push @resultnew, $bibses;
+                }
+                address@hidden = sort { $titles{$a} <=> $titles{$b} } keys 
%titles;
+                @result = ();
+                @result = @resultnew;
+        }
+#~~#~~#  above added by SH
+}    
        # we have bibid list. Now, loads title and author from [offset] to 
[offset]+[length]
        my $counter = $offset;
        # HINT : biblionumber as bn is important. The hash is fills 
biblionumber with items.biblionumber.