From 54b726844d96209ae0616980ba9c19044753d1cd Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Tue, 22 Apr 2003 08:20:42 +0000
Subject: [PATCH] Fixing bug 387, so the lists of branches are the same

---
 request.pl | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/request.pl b/request.pl
index bcf7be71c7..fc2f914384 100755
--- a/request.pl
+++ b/request.pl
@@ -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;
-- 
2.39.2