From ea7cae2b9314e005ec58ff9fa96459bed79e7cf4 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Fri, 9 Aug 2002 04:33:01 +0000
Subject: [PATCH] I have changed the branch options to only include the
 Issueing branches. Also if no branch is set it Defaults to Levin.

---
 request.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/request.pl b/request.pl
index 27d0eda9d8..b7afa861fb 100755
--- a/request.pl
+++ b/request.pl
@@ -34,9 +34,8 @@ my $priorityoptions = priorityoptions($num, $num);
 
 # get branch information
 my $branch = $input->cookie('branch');
+($branch) || ($branch = 'L');
 my $branches = getbranches();
-
-
 my $branchoptions = branchoptions($branch);
 
 
@@ -154,7 +153,7 @@ sub branchoptions {
     my ($selbr) = @_;
     my $out = "";
     foreach my $br (keys %$branches) {
-	(next) unless $branches->{$br}->{'CU'};
+	(next) unless $branches->{$br}->{'IS'};
 	my $selected = "";
 	if ($br eq $selbr) {
 	    $selected = "selected";
-- 
2.39.5