[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.17,1.18

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv10578/C4

Modified Files:
        Reserves2.pm 
Log Message:

Bug fix in ReserveWaiting to make sure only the record found is marked waiting.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** Reserves2.pm        26 Aug 2002 22:34:29 -0000      1.17
--- Reserves2.pm        4 Sep 2002 22:31:06 -0000       1.18
***************
*** 276,283 ****
      $sth->finish;
      my $biblio = $data->{'biblionumber'};
      my $q_biblio = $dbh->quote($biblio);
  # update reserves record....
      $query = "UPDATE reserves SET priority = 0, found = 'W', itemnumber = 
$item 
!                             WHERE borrowernumber = $borr AND biblionumber = 
$q_biblio";
      $sth = $dbh->prepare($query);
      $sth->execute;
--- 276,287 ----
      $sth->finish;
      my $biblio = $data->{'biblionumber'};
+     my $timestamp = $data->{'timestamp'};
      my $q_biblio = $dbh->quote($biblio);
+     my $q_timestamp = $dbh->quote($biblio);
  # update reserves record....
      $query = "UPDATE reserves SET priority = 0, found = 'W', itemnumber = 
$item 
!                             WHERE borrowernumber = $borr 
!                               AND biblionumber = $q_biblio 
!                               AND timestamp = $q_timestamp";
      $sth = $dbh->prepare($query);
      $sth->execute;