[Koha-cvs] CVS: koha/C4 SearchMarc.pm,1.36.2.2,1.36.2.3

[Joshua Ferraro]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22518

Modified Files:
      Tag: rel_2_2
        SearchMarc.pm 
Log Message:
Adds subtitles to initial results (TMPL_VAR NAME=subtitle needs to be added 
still)


Index: SearchMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/SearchMarc.pm,v
retrieving revision 1.36.2.2
retrieving revision 1.36.2.3
diff -C2 -r1.36.2.2 -r1.36.2.3
*** SearchMarc.pm       22 Feb 2005 22:32:00 -0000      1.36.2.2
--- SearchMarc.pm       23 Feb 2005 17:03:45 -0000      1.36.2.3
***************
*** 273,276 ****
--- 273,277 ----
        $sth->execute();
        my @result = ();
+         my $subtitle; # Added by JF for Subtitles
  
        # Processes the NOT if any and there are results
***************
*** 328,331 ****
--- 329,333 ----
                                                        LEFT JOIN itemtypes on 
itemtypes.itemtype=biblioitems.itemtype
                                                        WHERE 
biblio.biblionumber = marc_biblio.biblionumber AND bibid = ?");
+         my $sth_subtitle = $dbh->prepare("SELECT subtitle FROM bibliosubtitle 
WHERE biblionumber=?"); # Added BY JF for Subtitles
        my @finalresult = ();
        my @CNresults=();
***************
*** 342,345 ****
--- 344,357 ----
                my $line = $sth->fetchrow_hashref;
                my $biblionumber=$line->{bn};
+         # Return subtitles first ADDED BY JF
+                 $sth_subtitle->execute($biblionumber);
+                 my $subtitle_here.= $sth_subtitle->fetchrow." ";
+                 chop $subtitle_here;
+                 $subtitle = $subtitle_here;
+ #               warn "Here's the Biblionumber ".$biblionumber;
+ #                warn "and here's the subtitle: ".$subtitle_here;
+ 
+         # /ADDED BY JF
+ 
  #             $continue=0 unless $line->{bn};
  #             my $lastitemnumber;
***************
*** 377,380 ****
--- 389,394 ----
                $newline{norequests} = 1 if ($line->{notforloan}); # itemtype 
not issuable
                $newline{norequests} = 1 if (!$line->{notforloan} && 
$notforloan); # itemtype issuable but all items not issuable for instance
+                 $newline{subtitle} = $subtitle;  # put the subtitle in ADDED 
BY JF
+ 
                my @CNresults2= @CNresults;
                $newline{CN} = address@hidden;