|
Lines 153-170
if ($do_it) {
Link Here
|
| 153 |
push @authvals, { code => $_, description => $authvals->{$_} }; |
153 |
push @authvals, { code => $_, description => $authvals->{$_} }; |
| 154 |
} |
154 |
} |
| 155 |
|
155 |
|
| 156 |
|
|
|
| 157 |
my $branches=GetBranches(); |
| 158 |
my @branchloop; |
| 159 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
| 160 |
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
| 161 |
my %row = (branchcode => $_, |
| 162 |
selected => ($thisbranch eq $_ ? 1 : 0), |
| 163 |
branchname => $branches->{$_}->{'branchname'}, |
| 164 |
); |
| 165 |
push @branchloop, \%row; |
| 166 |
} |
| 167 |
|
| 168 |
my $locations = GetKohaAuthorisedValues("items.location"); |
156 |
my $locations = GetKohaAuthorisedValues("items.location"); |
| 169 |
my @locations; |
157 |
my @locations; |
| 170 |
foreach (sort keys %$locations) { |
158 |
foreach (sort keys %$locations) { |
|
Lines 177-183
if ($do_it) {
Link Here
|
| 177 |
haslccn => $haslccn, |
165 |
haslccn => $haslccn, |
| 178 |
hascote => $hascote, |
166 |
hascote => $hascote, |
| 179 |
CGIItemType => $CGIitemtype, |
167 |
CGIItemType => $CGIitemtype, |
| 180 |
CGIBranch => \@branchloop, |
168 |
CGIBranch => GetBranchesLoop(C4::Context->userenv->{'branch'}), |
| 181 |
locationloop => \@locations, |
169 |
locationloop => \@locations, |
| 182 |
authvals => \@authvals, |
170 |
authvals => \@authvals, |
| 183 |
CGIextChoice => \@mime, |
171 |
CGIextChoice => \@mime, |
| 184 |
- |
|
|