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