|
Lines 137-155
for my $itype ( sort {$itemtypes->{$a}->{description} cmp $itemtypes->{$b}->{des
Link Here
|
| 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(); |
|
|
| 141 |
my @branchloop; |
| 142 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
| 143 |
my $thisbranch = ''; # FIXME |
| 144 |
my %row = ( |
| 145 |
branchcode => $_, |
| 146 |
selected => ($thisbranch eq $_ ? 1 : 0), |
| 147 |
code => $branches->{$_}->{'branchcode'}, |
| 148 |
description => $branches->{$_}->{'branchname'}, |
| 149 |
); |
| 150 |
push @branchloop, \%row; |
| 151 |
} |
| 152 |
|
| 153 |
# location list |
140 |
# location list |
| 154 |
my @locations; |
141 |
my @locations; |
| 155 |
foreach (sort keys %$locations) { |
142 |
foreach (sort keys %$locations) { |
|
Lines 178-184
$template->param(
Link Here
|
| 178 |
itemtypeloop => \@itemtypeloop, |
165 |
itemtypeloop => \@itemtypeloop, |
| 179 |
locationloop => \@locations, |
166 |
locationloop => \@locations, |
| 180 |
ccodeloop => \@ccodes, |
167 |
ccodeloop => \@ccodes, |
| 181 |
branchloop => \@branchloop, |
168 |
branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}), |
| 182 |
hassort1=> $hassort1, |
169 |
hassort1=> $hassort1, |
| 183 |
hassort2=> $hassort2, |
170 |
hassort2=> $hassort2, |
| 184 |
Bsort1 => $Bsort1, |
171 |
Bsort1 => $Bsort1, |
| 185 |
- |
|
|