View | Details | Raw Unified | Return to bug 2505
Collapse All | Expand All

(-)a/members/members-home.pl (-7 / +7 lines)
Lines 31-36 my $query = new CGI; Link Here
31
my $branch = $query->param('branchcode');
31
my $branch = $query->param('branchcode');
32
my $template_name;
32
my $template_name;
33
33
34
$branch = q{} unless defined $branch;
35
34
my ($template, $loggedinuser, $cookie)
36
my ($template, $loggedinuser, $cookie)
35
    = get_template_and_user({template_name => "members/member.tmpl",
37
    = get_template_and_user({template_name => "members/member.tmpl",
36
                 query => $query,
38
                 query => $query,
Lines 42-54 my ($template, $loggedinuser, $cookie) Link Here
42
44
43
my $branches = GetBranches;
45
my $branches = GetBranches;
44
my @branchloop;
46
my @branchloop;
45
foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {
47
foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %{$branches}) {
46
  my $selected = 1 if $branches->{$_}->{branchcode} eq $branch;
48
    push @branchloop, {
47
  my %row = ( value => $_,
49
        value      => $_,
48
        selected => $selected,
50
        selected   => ($branches->{$_}->{branchcode} eq $branch),
49
        branchname => $branches->{$_}->{branchname},
51
        branchname => $branches->{$_}->{branchname},
50
      );
52
    };
51
  push @branchloop, \%row;
52
}
53
}
53
54
54
my @categories;
55
my @categories;
55
- 

Return to bug 2505