[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=?");