[Koha-cvs] CVS: koha/acqui newbiblio.pl,1.26,1.27

[Henri-Damien LAURENT]

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

Modified Files:
        newbiblio.pl 
Log Message:
Managing branch independancy when creating a new biblio.
A librarian of one branch cannot create a biblio on a branch different form his 
own, unless superlibrarian.


Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** newbiblio.pl        4 Aug 2005 09:52:32 -0000       1.26
--- newbiblio.pl        8 Aug 2005 13:55:52 -0000       1.27
***************
*** 116,121 ****
  my ($count2,@branches)=branches();
  for (my $i=0;$i<$count2;$i++){
!       push @select_branch, $branches[$i]->{'branchcode'};#
!       $select_branches{$branches[$i]->{'branchcode'}} = 
$branches[$i]->{'branchname'};
  }
  my $CGIbranch=CGI::scrolling_list( -name     => 'branch',
--- 116,124 ----
  my ($count2,@branches)=branches();
  for (my $i=0;$i<$count2;$i++){
!       if 
((!C4::Context->preference('IndependantBranches'))||(C4::Context->preference('IndependantBranches')
 && (C4::Context->userenv->{flags} ==1))
!       ||((C4::Context->preference('IndependantBranches') && 
(C4::Context->userenv->{flags} !=1) && (C4::Context->userenv->{branch} eq 
$branches[$i]->{'branchcode'})))){
!               push @select_branch, $branches[$i]->{'branchcode'};#
!               $select_branches{$branches[$i]->{'branchcode'}} = 
$branches[$i]->{'branchname'};
!       }
  }
  my $CGIbranch=CGI::scrolling_list( -name     => 'branch',