Lines 160-166
sub GetBranchesLoop (;$$) { # since this is what most pages want anyway
Link Here
|
160 |
my $onlymine = @_ ? shift : onlymine(); |
160 |
my $onlymine = @_ ? shift : onlymine(); |
161 |
my $branches = GetBranches($onlymine); |
161 |
my $branches = GetBranches($onlymine); |
162 |
my @loop; |
162 |
my @loop; |
163 |
foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) { |
163 |
foreach ( sort { uc($branches->{$a}->{branchname}) cmp uc($branches->{$b}->{branchname}) } keys %$branches ) { |
164 |
push @loop, { |
164 |
push @loop, { |
165 |
value => $_, |
165 |
value => $_, |
166 |
selected => ($_ eq $branch) ? 1 : 0, |
166 |
selected => ($_ eq $branch) ? 1 : 0, |
167 |
- |
|
|