[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.20.2.1,1.20.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
        Reserves2.pm 
Log Message:
Added a whole mess of FIXME comments.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.20.2.1
retrieving revision 1.20.2.2
diff -C2 -r1.20.2.1 -r1.20.2.2
*** Reserves2.pm        4 Oct 2002 02:25:50 -0000       1.20.2.1
--- Reserves2.pm        5 Oct 2002 06:13:33 -0000       1.20.2.2
***************
*** 24,27 ****
--- 24,29 ----
  use C4::Context;
  use C4::Search;
+       # FIXME - C4::Reserves2 uses C4::Search, which uses C4::Reserves2.
+       # So Perl complains that all of the functions here get redefined.
  #use C4::Accounts;
  
***************
*** 180,183 ****
--- 182,186 ----
        $sth->finish;
  # update the database, removing the record...
+         # FIXME - There's already a $query in this scope.
          my $query = "update reserves set cancellationdate = now(), 
                                           found            = Null, 
***************
*** 188,191 ****
--- 191,195 ----
                                       and (found <> 'F' or found is NULL)";
                # FIXME - There's already a $query in this scope.
+         # FIXME - There's already a $sth in this scope.
        my $sth = $dbh->prepare($query);
                # FIXME - There's already a $sth in this scope.
***************
*** 215,218 ****
--- 219,223 ----
      $sth->finish;
  # update the database...
+     # FIXME - There's already a $query in this scope.
      my $query = "UPDATE reserves SET found            = 'F', 
                                       priority         = 0 
***************
*** 221,224 ****
--- 226,230 ----
                                   AND borrowernumber   = $borr";
                # FIXME - There's already a $query in this scope.
+     # FIXME - There's already a $sth in this scope.
      my $sth = $dbh->prepare($query);
                # FIXME - There's already a $sth in this scope.