|
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 |
- |
|
|