[Koha-cvs] CVS: koha search.pl,1.32.2.2,1.32.2.3

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	search.pl 
Log Message:
porting inventory feature to rel_2_0, from HEAD

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.32.2.2
retrieving revision 1.32.2.3
diff -C2 -r1.32.2.2 -r1.32.2.3
*** search.pl	13 Jan 2004 17:33:39 -0000	1.32.2.2
--- search.pl	26 Feb 2004 10:23:03 -0000	1.32.2.3
***************
*** 20,23 ****
--- 20,26 ----
  
  # $Log$
+ # Revision 1.32.2.3  2004/02/26 10:23:03  tipaul
+ # porting inventory feature to rel_2_0, from HEAD
+ #
  # Revision 1.32.2.2  2004/01/13 17:33:39  tipaul
  # removing useless (& buggy here) checkauth
***************
*** 118,121 ****
--- 121,138 ----
  }
  
+ my $num = 1;
+ foreach my $res (@results) {
+     my @items = ItemInfo(undef, $res->{'biblionumber'}, "intra");
+     my $norequests = 1;
+     foreach my $itm (@items) {
+ 	$norequests = 0 unless $itm->{'notforloan'};
+     }
+     $res->{'norequests'} = $norequests;
+     # set up the even odd elements....
+     $res->{'even'} = 1 if $num % 2 == 0;
+     $res->{'odd'} = 1 if $num % 2 == 1;
+     $num++;
+ }
+ 
  #my $resultsarray=\@results;
  my $resultsarray;