[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.28,1.29

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv2039/C4

Modified Files:
	Reserves2.pm 
Log Message:
fix for #187

Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** Reserves2.pm	1 Apr 2003 12:26:43 -0000	1.28
--- Reserves2.pm	7 Apr 2003 14:05:29 -0000	1.29
***************
*** 147,152 ****
    my $sth=$dbh->prepare($query);
    $sth->execute;
-   # FIXME - $i is unnecessary and bogus
-   my $i=0;
    my @results;
    while (my $data=$sth->fetchrow_hashref){
--- 147,150 ----
***************
*** 174,183 ****
  	  }
        }
!       $results[$i]=$data;		# FIXME - Use push @results
!       $i++;
    }
- #  print $query;
    $sth->finish;
!   return($i,\@results);
  }
  
--- 172,179 ----
  	  }
        }
! 	push @results, $data;
    }
    $sth->finish;
!   return($#results+1,\@results);
  }
  
***************
*** 791,794 ****
--- 787,791 ----
   reserveconstraints.timestamp=$timestamp";
   my $sth=$dbh->prepare($query);
+  warn "q : $query";
   $sth->execute;
   my $data=$sth->fetchrow_hashref;