[Koha-cvs] CVS: koha/C4 Search.pm,1.93,1.94

[skemotah]

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

Modified Files:
	Search.pm 
Log Message:
Minor changes to add classification data to return array from loose search.

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -r1.93 -r1.94
*** Search.pm	18 Aug 2004 16:02:26 -0000	1.93
--- Search.pm	4 Sep 2004 13:48:27 -0000	1.94
***************
*** 1236,1240 ****
  	my $limit= $num+$offset;
  	while (my $data=$sth->fetchrow_hashref){
! 		my $query="select dewey,subclass,publishercode from biblioitems where biblionumber=?";
  		my @bind=($data->{'biblionumber'});
  		if ($search->{'class'} ne ''){
--- 1236,1240 ----
  	my $limit= $num+$offset;
  	while (my $data=$sth->fetchrow_hashref){
! 		my $query="select classification,dewey,subclass,publishercode from biblioitems where biblionumber=?";
  		my @bind=($data->{'biblionumber'});
  		if ($search->{'class'} ne ''){
***************
*** 1263,1266 ****
--- 1263,1267 ----
  		my $sti=$dbh->prepare($query);
  		$sti->execute(@bind);
+ 		my $classification;
  		my $dewey;
  		my $subclass;
***************
*** 1270,1273 ****
--- 1271,1275 ----
  		if ($bibitemdata = $sti->fetchrow_hashref()){
  			$true=1;
+ 			$classification=$bibitemdata->{'classification'};
  			$dewey=$bibitemdata->{'dewey'};
  			$subclass=$bibitemdata->{'subclass'};
***************
*** 1279,1282 ****
--- 1281,1285 ----
  		($dewey == 0) && ($dewey='');
  		($dewey) && ($dewey.=" $subclass");
+ 		$data->{'classification'}=$classification;
  		$data->{'dewey'}=$dewey;
  		$data->{'publishercode'}=$publishercode;