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