[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} = \@CNresults2;