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

[Finlay Thompson]

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

Modified Files:
        Reserves2.pm 
Log Message:

Little bug fixes.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** Reserves2.pm        4 Sep 2002 22:31:06 -0000       1.18
--- Reserves2.pm        4 Sep 2002 22:51:39 -0000       1.19
***************
*** 264,268 ****
      my $query = "SELECT reserves.priority     as priority, 
                          reserves.biblionumber as biblionumber,
!                         reserves.branchcode   as branchcode 
                        FROM reserves,items 
                       WHERE reserves.biblionumber   = items.biblionumber 
--- 264,269 ----
      my $query = "SELECT reserves.priority     as priority, 
                          reserves.biblionumber as biblionumber,
!                         reserves.branchcode   as branchcode, 
!                         reserves.timestamp     as timestamp
                        FROM reserves,items 
                       WHERE reserves.biblionumber   = items.biblionumber 
***************
*** 278,282 ****
      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 
--- 279,284 ----
      my $timestamp = $data->{'timestamp'};
      my $q_biblio = $dbh->quote($biblio);
!     my $q_timestamp = $dbh->quote($timestamp);
!     warn "Timestamp: ".$timestamp."\n";
  # update reserves record....
      $query = "UPDATE reserves SET priority = 0, found = 'W', itemnumber = 
$item 
***************
*** 284,287 ****
--- 286,290 ----
                                AND biblionumber = $q_biblio 
                                AND timestamp = $q_timestamp";
+     warn "Query: ".$query."\n";
      $sth = $dbh->prepare($query);
      $sth->execute;