|
Lines 142-159
if($do_it){
Link Here
|
| 142 |
push(@booksellers,$row) |
142 |
push(@booksellers,$row) |
| 143 |
} |
143 |
} |
| 144 |
|
144 |
|
| 145 |
## We generate branchlist |
|
|
| 146 |
my $branches=GetBranches(); |
| 147 |
my @branchloop; |
| 148 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
| 149 |
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
| 150 |
my %row = (branchcode => $_, |
| 151 |
selected => ($thisbranch eq $_ ? 1 : 0), |
| 152 |
branchname => $branches->{$_}->{'branchname'}, |
| 153 |
); |
| 154 |
push @branchloop, \%row; |
| 155 |
} |
| 156 |
|
| 157 |
my @mime = ( C4::Context->preference("MIME") ); |
145 |
my @mime = ( C4::Context->preference("MIME") ); |
| 158 |
# warn 'MIME(s): ' . join ' ', @mime; |
146 |
# warn 'MIME(s): ' . join ' ', @mime; |
| 159 |
my $CGIextChoice=CGI::scrolling_list( |
147 |
my $CGIextChoice=CGI::scrolling_list( |
|
Lines 167-173
if($do_it){
Link Here
|
| 167 |
CGIextChoice => $CGIextChoice, |
155 |
CGIextChoice => $CGIextChoice, |
| 168 |
CGIsepChoice => $CGIsepChoice, |
156 |
CGIsepChoice => $CGIsepChoice, |
| 169 |
booksellers => \@booksellers, |
157 |
booksellers => \@booksellers, |
| 170 |
branches => \@branchloop); |
158 |
branches => GetBranchesLoop(C4::Context->userenv->{'branch'})); |
| 171 |
} |
159 |
} |
| 172 |
|
160 |
|
| 173 |
output_html_with_http_headers $input, $cookie, $template->output; |
161 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 174 |
- |
|
|