[Koha-cvs] CVS: koha/acqui basket.pl,1.29,1.30

[Henri-Damien LAURENT]

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

Modified Files:
	basket.pl 
Log Message:
BUG Fixing a user with acquisition rights and no superlibrarian rights couldn't create a new basket with IndependantBranches management on.

Index: basket.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/basket.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** basket.pl	4 Aug 2005 09:52:32 -0000	1.29
--- basket.pl	8 Aug 2005 13:58:07 -0000	1.30
***************
*** 61,68 ****
  	my $userenv = C4::Context->userenv;
  	unless ($userenv->{flags} == 1){
! 		my $validtest = ($basket->{creationdate} = "") 
  					|| ($userenv->{branch} eq $basket->{branch})
! 					|| ($userenv->{branch} = '')
! 					|| ($basket->{branch} = '');
  		unless ($validtest) {
  			print $query->redirect("../mainpage.pl");
--- 61,69 ----
  	my $userenv = C4::Context->userenv;
  	unless ($userenv->{flags} == 1){
! 		my $validtest = ($basket->{creationdate} eq '') 
! 					|| ($basket->{branch} eq '')
  					|| ($userenv->{branch} eq $basket->{branch})
! 					|| ($userenv->{branch} eq '')
! 					|| ($basket->{branch} eq '');
  		unless ($validtest) {
  			print $query->redirect("../mainpage.pl");