[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)";