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