[Koha-cvs] koha readingrec.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   08/03/14 13:42:13

Modified files:
        .              : readingrec.pl 

Log message:
        Reading record sorting by title now ignores stopwords.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/readingrec.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.12.2.5.2.3&r2=1.12.2.5.2.4

Patches:
Index: readingrec.pl
===================================================================
RCS file: /sources/koha/koha/Attic/readingrec.pl,v
retrieving revision 1.12.2.5.2.3
retrieving revision 1.12.2.5.2.4
diff -u -b -r1.12.2.5.2.3 -r1.12.2.5.2.4
--- readingrec.pl       31 May 2007 12:48:52 -0000      1.12.2.5.2.3
+++ readingrec.pl       14 Mar 2008 13:42:13 -0000      1.12.2.5.2.4
@@ -22,6 +22,8 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
+use Data::Dumper;
+
 use strict;
 use C4::Auth;
 use C4::Output;
@@ -47,9 +49,10 @@
 } else {
   $limit=50;
 }
-my ($count,$issues)=allissues($bornum,$order2,$limit);
 
-my ($template, $loggedinuser, $cookie)
+my ( $count, $issues ) = allissues( $bornum, $order2, $limit );
+
+my ( $template, $loggedinuser, $cookie )
 = get_template_and_user({template_name => "members/readingrec.tmpl",
                                query => $input,
                                type => "intranet",
@@ -60,30 +63,49 @@
 
 my @loop_reading;
 
+my $stopwords = C4::Context->stopwords;
+
 for (my $i=0;$i<$count;$i++){
        my %line;
        if($i%2){
                $line{'toggle'} = 1;
        }
-       $line{biblionumber}=$issues->[$i]->{'biblionumber'};
-       $line{title}=$issues->[$i]->{'title'};
-       $line{author}=$issues->[$i]->{'author'};
+       $line{biblionumber} = $issues->[$i]->{'biblionumber'};
+       $line{title} = $issues->[$i]->{'title'};
+       $line{author} = $issues->[$i]->{'author'};
        $line{classification} = $issues->[$i]->{'classification'};
-       $line{date_due}=format_date($issues->[$i]->{'date_due'});
-       $line{issue_date}=format_date($issues->[$i]->{'issue_date'});
-       $line{returndate}=format_date($issues->[$i]->{'returndate'});
-       $line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
-       $line{volume} =$issues->[$i]->{'volume'};
-       $line{publicationyear} =$issues->[$i]->{'publicationyear'};
-       $line{publishercode} =$issues->[$i]->{'publishercode'};
-       $line{place} =$issues->[$i]->{'place'};
-       $line{pages} =$issues->[$i]->{'pages'};
-       $line{size} =$issues->[$i]->{'size'};
-       $line{description} =$issues->[$i]->{'description'};
-       $line{itemcallnumber}=$issues->[$i]->{'itemcallnumber'};
+       $line{date_due} = format_date($issues->[$i]->{'date_due'});
+       $line{issue_date} = format_date($issues->[$i]->{'issue_date'});
+       $line{returndate} = format_date($issues->[$i]->{'returndate'});
+       $line{volumeddesc} = $issues->[$i]->{'volumeddesc'};
+       $line{volume} = $issues->[$i]->{'volume'};
+       $line{publicationyear} = $issues->[$i]->{'publicationyear'};
+       $line{publishercode} = $issues->[$i]->{'publishercode'};
+       $line{place} = $issues->[$i]->{'place'};
+       $line{pages} = $issues->[$i]->{'pages'};
+       $line{size} = $issues->[$i]->{'size'};
+       $line{description} = $issues->[$i]->{'description'};
+       $line{itemcallnumber} = $issues->[$i]->{'itemcallnumber'};
+
+       if ( $order2 =~ m/title/ ) { ## If we are sorting by 'title'
+               ## Need to sort ignoring stopwords, create 'titlesort' which is 
the title without any stopwords
+               $line{titlesort} = uc( $issues->[$i]->{'title'} ); ## Stopwords 
are all uppercase
+               my ( $key, $value );
+               while ( ( $key, $value ) = each( %$stopwords ) ) {
+                       if ( $line{titlesort} =~ m/^$key / ) { ## space after 
$key make sure its not the beginning of a different word
+                               $line{titlesort} = substr( $line{titlesort}, 
length( $key ) );
+                       }
+               }
+       }
+               
        push(@loop_reading,\%line);
 }
 
+## resort @loop_reading based on 'titlesort' instead of 'title' if being 
sorted by title
+if ( $order2 =~ m/title/ ) {
+       @loop_reading = sort { $a->{titlesort} cmp $b->{titlesort} } 
@loop_reading;
+}
+
 $template->param(
                                                biblionumber => 
$data->{'biblionumber'},
                                                title => $data->{'title'},