[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') {