Lines 374-380
if ($nok or !$nodouble){
Link Here
|
374 |
} |
374 |
} |
375 |
if (C4::Context->preference("IndependantBranches")) { |
375 |
if (C4::Context->preference("IndependantBranches")) { |
376 |
my $userenv = C4::Context->userenv; |
376 |
my $userenv = C4::Context->userenv; |
377 |
if ($userenv->{flags} % 2 != 1 && $data{branchcode}){ |
377 |
if ($userenv->{flags} % 2 != 1 && $data{'branchcode'}){ |
378 |
unless ($userenv->{branch} eq $data{'branchcode'}){ |
378 |
unless ($userenv->{branch} eq $data{'branchcode'}){ |
379 |
print $input->redirect("/cgi-bin/koha/members/members-home.pl"); |
379 |
print $input->redirect("/cgi-bin/koha/members/members-home.pl"); |
380 |
exit; |
380 |
exit; |
Lines 493-499
my $borrotitlepopup = CGI::popup_menu(-name=>'title',
Link Here
|
493 |
-default=>$default_borrowertitle |
493 |
-default=>$default_borrowertitle |
494 |
); |
494 |
); |
495 |
|
495 |
|
496 |
my @relationships = split /,|\|/, C4::Context->preference('BorrowerRelationship'); |
496 |
my @relationships = split /,|\|/, C4::Context->preference('borrowerRelationship'); |
497 |
my @relshipdata; |
497 |
my @relshipdata; |
498 |
while (@relationships) { |
498 |
while (@relationships) { |
499 |
my $relship = shift @relationships || ''; |
499 |
my $relship = shift @relationships || ''; |
Lines 549-555
if(scalar(@select_branch) > 0){
Link Here
|
549 |
# -------------------------------------------------------------------------------------------------------- |
549 |
# -------------------------------------------------------------------------------------------------------- |
550 |
#in modify mod :default value from $CGIbranch comes from borrowers table |
550 |
#in modify mod :default value from $CGIbranch comes from borrowers table |
551 |
#in add mod: default value come from branches table (ip correspendence) |
551 |
#in add mod: default value come from branches table (ip correspendence) |
552 |
$default=$data{'branchcode'} if ($op eq 'modify' || ($op eq 'add' && $category_type eq 'C')); |
552 |
if (defined ($data{'branchcode'}) and ( $op eq 'modify' || ( $op eq 'add' && $category_type eq 'C' ) )) { |
|
|
553 |
$default = $data{'branchcode'}; |
554 |
} |
553 |
$CGIbranch = CGI::scrolling_list(-id => 'branchcode', |
555 |
$CGIbranch = CGI::scrolling_list(-id => 'branchcode', |
554 |
-name => 'branchcode', |
556 |
-name => 'branchcode', |
555 |
-values => \@select_branch, |
557 |
-values => \@select_branch, |
556 |
- |
|
|