|
Lines 133-145
my %select;
Link Here
|
| 133 |
|
133 |
|
| 134 |
# create itemtype arrayref for <select>. |
134 |
# create itemtype arrayref for <select>. |
| 135 |
my @itemtypeloop; |
135 |
my @itemtypeloop; |
| 136 |
for my $itype ( keys(%$itemtypes)) { |
136 |
for my $itype ( sort {$itemtypes->{$a}->{description} cmp $itemtypes->{$b}->{description}} keys(%$itemtypes)) { |
| 137 |
push @itemtypeloop, { code => $itype , description => $itemtypes->{$itype}->{description} } ; |
137 |
push @itemtypeloop, { code => $itype , description => $itemtypes->{$itype}->{description} } ; |
| 138 |
} |
138 |
} |
| 139 |
|
139 |
|
| 140 |
my $branches=GetBranches(); |
140 |
my $branches=GetBranches(); |
| 141 |
my @branchloop; |
141 |
my @branchloop; |
| 142 |
foreach (keys %$branches) { |
142 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
| 143 |
my $thisbranch = ''; # FIXME |
143 |
my $thisbranch = ''; # FIXME |
| 144 |
my %row = ( |
144 |
my %row = ( |
| 145 |
branchcode => $_, |
145 |
branchcode => $_, |
|
Lines 157-163
foreach (sort keys %$locations) {
Link Here
|
| 157 |
} |
157 |
} |
| 158 |
|
158 |
|
| 159 |
my @ccodes; |
159 |
my @ccodes; |
| 160 |
foreach (keys %$ccodes) { |
160 |
foreach (sort {$ccodes->{$a} cmp $ccodes->{$b}} keys %$ccodes) { |
| 161 |
push @ccodes, { code => $_, description => $ccodes->{$_} }; |
161 |
push @ccodes, { code => $_, description => $ccodes->{$_} }; |
| 162 |
} |
162 |
} |
| 163 |
|
163 |
|
| 164 |
- |
|
|