Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixing bug 387, so the lists of branches are the same

Browse source
This commit is contained in:
rangi 2003-04-22 08:20:42 +00:00
parent 856928428c
commit 54b726844d
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
request.pl
View file

@ -71,9 +71,9 @@ my $branches = getbranches();
# make branch selection options...
my @branchloop;
foreach my $br (keys %$branches) {
(next) unless $branches->{$br}->{'IS'};
# Only branches with the 'IS' branchrelation
# can issue books
# (next) unless $branches->{$br}->{'IS'};
# # Only branches with the 'IS' branchrelation
# # can issue books
my %abranch;
$abranch{'selected'}=($br eq $branch);
$abranch{'branch'}=$br;
@ -135,17 +135,17 @@ foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
push(@optionloop, \%option);
}
# my $bropt = branchoptions($res->{'branchcode'});
my @branchloop;
foreach my $br (keys %$branches) {
(next) unless $branches->{$br}->{'IS'};
# Only branches with the 'IS' branchrelation
# can issue books
my %abranch;
$abranch{'selected'}=($br eq $res->{'branchcode'});
$abranch{'branch'}=$br;
$abranch{'branchname'}=$branches->{$br}->{'branchname'};
push(@branchloop,\%abranch);
}
# my @branchloop;
# foreach my $br (keys %$branches) {
# (next) unless $branches->{$br}->{'IS'};
# # Only branches with the 'IS' branchrelation
# # can issue books
# my %abranch;
# $abranch{'selected'}=($br eq $res->{'branchcode'});
# $abranch{'branch'}=$br;
# $abranch{'branchname'}=$branches->{$br}->{'branchname'};
# push(@branchloop,\%abranch);
# }
if ($res->{'found'} eq 'W') {
my %env;