[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.15,1.16

[Mike Hansen]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv5517/koha/opac

Modified Files:
	opac-reserve.pl 
Log Message:
Bug fixes


Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** opac-reserve.pl	5 May 2003 11:21:31 -0000	1.15
--- opac-reserve.pl	8 May 2003 12:26:16 -0000	1.16
***************
*** 14,19 ****
  use HTML::Template;
  use C4::Date;
  
! my $MAXIMUM_NUMBER_OF_RESERVES = 5;
  
  my $query = new CGI;
--- 14,20 ----
  use HTML::Template;
  use C4::Date;
+ use C4::Context;
  
! my $MAXIMUM_NUMBER_OF_RESERVES = C$::Context->preference("maxreserves");
  
  my $query = new CGI;
***************
*** 228,232 ****
  	# Here we check that the borrower can actually make reserves Stage 1.
  	my $noreserves = 0;
! 	if ($borr->{'amountoutstanding'} > 5) {
  		my $amount = sprintf "\$%.02f", $borr->{'amountoutstanding'};
  		$template->param(message => 1);
--- 229,234 ----
  	# Here we check that the borrower can actually make reserves Stage 1.
  	my $noreserves = 0;
! 	my $maxoutstanding = C4::Context->preference("maxoustanding");
! 	if ($borr->{'amountoutstanding'} > $maxoutstanding) {
  		my $amount = sprintf "\$%.02f", $borr->{'amountoutstanding'};
  		$template->param(message => 1);