[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 => \@bordat, biblionumber => $biblionumber);
  
  # get the rank number....
--- 38,42 ----
  my $bibdata = bibdata($biblionumber);
   $template->param($bibdata);
! #  $template->param(BORROWER_INFO => \@bordat, 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);