[Koha-cvs] CVS: koha request.pl,1.22,1.23

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv27517

Modified Files:
        request.pl 
Log Message:
Fixing bug 387, so the lists of branches are the same


Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** request.pl  26 Mar 2003 04:42:56 -0000      1.22
--- request.pl  22 Apr 2003 08:20:42 -0000      1.23
***************
*** 72,78 ****
  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 $branch);
--- 72,78 ----
  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 $branch);
***************
*** 136,150 ****
        }
  #    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);
!       }
  
      if ($res->{'found'} eq 'W') {
--- 136,150 ----
        }
  #    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);
! #     }
  
      if ($res->{'found'} eq 'W') {