[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.13,1.14

[Finlay Thompson]

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

Modified Files:
        Reserves2.pm 
Log Message:

Fixed a really terrible bug! Took out the fixpriorities call in FillReserve. 
This is not necesary because the priorities are fixed up when the item is set 
to waiting in ReserveWaiting.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Reserves2.pm        14 Aug 2002 18:12:51 -0000      1.13
--- Reserves2.pm        15 Aug 2002 03:31:02 -0000      1.14
***************
*** 66,70 ****
    }
    $query.=" order by priority";
-   warn $query;
    my $sth=$dbh->prepare($query);
    $sth->execute;
--- 66,69 ----
***************
*** 124,133 ****
            }
        }
-       warn "highest = $highest";
        $highest->{'itemnumber'} = $item;
-       foreach my $key (keys %$highest) {
-           warn "$key : $highest->{$key}\n";
-       }
- 
        return ("Reserved", $highest);
      } else {
--- 123,127 ----
***************
*** 203,208 ****
      $sth->finish;
      $dbh->disconnect;
- # now fix the priority on the others....
-     fixpriority($res->{'priority'}, $biblio);
  }
  
--- 197,200 ----
***************
*** 337,341 ****
      my $nextacctno = &getnextacctno($env,$borrnum,$dbh);   
      my $updquery = "insert into accountlines       
!     
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
                                              
                                                          values
      ($borrnum,$nextacctno,now(),$fee,'Reserve Charge - $title','Res',$fee)";  
        
--- 329,333 ----
      my $nextacctno = &getnextacctno($env,$borrnum,$dbh);   
      my $updquery = "insert into accountlines       
!     
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
                                                          values
      ($borrnum,$nextacctno,now(),$fee,'Reserve Charge - $title','Res',$fee)";