[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, at 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, at 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',