[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.20,1.21

[Paul POULAIN]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13030/opac

Modified Files:
        opac-reserve.pl 
Log Message:
reservation is impossible if the borrower has a card lost, is gonenoaddress or 
is suspended

Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** opac-reserve.pl     8 Jan 2004 18:26:39 -0000       1.20
--- opac-reserve.pl     15 Sep 2004 16:42:42 -0000      1.21
***************
*** 30,35 ****
  # get borrower information ....
  my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
! my @bordat;
! $bordat[0] = $borr;
  
  # get biblionumber.....
--- 30,35 ----
  # get borrower information ....
  my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
! # my @bordat;
! # $bordat[0] = $borr;
  
  # get biblionumber.....
***************
*** 38,42 ****
  my $bibdata = bibdata($biblionumber);
   $template->param($bibdata);
!  $template->param(BORROWER_INFO => address@hidden, biblionumber => 
$biblionumber);
  
  # get the rank number....
--- 38,42 ----
  my $bibdata = bibdata($biblionumber);
   $template->param($bibdata);
! #  $template->param(BORROWER_INFO => address@hidden, biblionumber => 
$biblionumber);
  
  # get the rank number....
***************
*** 60,64 ****
  $template->param(branchname => $branches->{$branch}->{'branchname'});
  
- 
  # make branch selection options...
  #my $branchoptions = '';
--- 60,63 ----
***************
*** 201,205 ****
                $proceed = 1;
        }
-       warn "branch :$branch:";
        if ($proceed && $branch) {
                $fee = sprintf "%.02f", $fee;
--- 200,203 ----
***************
*** 238,241 ****
--- 236,254 ----
                $template->param(too_much_oweing => $amount);
        }
+       if ($borr->{gonenoaddress} eq 1) {
+               $noreserves = 1;
+               $template->param(message => 1,
+                                               GNA => 1);
+       }
+       if ($borr->{lost} eq 1) {
+               $noreserves = 1;
+               $template->param(message => 1,
+                                               lost => 1);
+       }
+       if ($borr->{debarred} eq 1) {
+               $noreserves = 1;
+               $template->param(message => 1,
+                                               debarred => 1);
+       }
        my ($resnum, $reserves) = FindReserves('', $borrowernumber);
        $template->param(RESERVES => $reserves);