[Koha-cvs] CVS: koha/members deletemem.pl,1.4.2.1,1.4.2.2

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
	deletemem.pl 
Log Message:
Bug fixing.


Index: deletemem.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/deletemem.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** deletemem.pl	26 Aug 2005 12:21:50 -0000	1.4.2.1
--- deletemem.pl	15 Sep 2005 15:13:42 -0000	1.4.2.2
***************
*** 42,55 ****
  my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  
- if (C4::Context->preference("IndependantBranches")) {
- 	my $userenv = C4::Context->userenv;
- 	unless ($userenv->{flags} == 1){
- 		unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
- 			warn "user ".$userenv->{'branch'} ."borrower :". $bor->{'branchcode'};
- 			print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
- 			exit 1;
- 		}
- 	}
- }
  
  
--- 42,45 ----
***************
*** 66,69 ****
--- 56,69 ----
  }
  my ($bor,$flags)=getpatroninformation(\%env, $member,'');
+ if (C4::Context->preference("IndependantBranches")) {
+ 	my $userenv = C4::Context->userenv;
+ 	unless ($userenv->{flags} == 1){
+ 		unless ($userenv->{'branch'} eq $bor->{'branchcode'}){
+ 			warn "user ".$userenv->{'branch'} ."borrower :". $bor->{'branchcode'};
+ 			print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$member");
+ 			exit 1;
+ 		}
+ 	}
+ }
  my $dbh = C4::Context->dbh;
  my $sth=$dbh->prepare("Select * from borrowers where guarantor=?");