I have changed the branch options to only include the Issueing branches. Also if no branch is set it Defaults to Levin.

This commit is contained in:
finlayt 2002-08-09 04:33:01 +00:00
parent 7d440c782f
commit ea7cae2b93
1 changed files with 2 additions and 3 deletions

View File

@ -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";