Lines 140-158
if($do_it){
Link Here
|
140 |
while(my $row = $sth->fetchrow_hashref){ |
140 |
while(my $row = $sth->fetchrow_hashref){ |
141 |
push(@booksellers,$row) |
141 |
push(@booksellers,$row) |
142 |
} |
142 |
} |
143 |
|
143 |
|
144 |
## We generate branchlist |
|
|
145 |
my $branches=GetBranches(); |
146 |
my @branchloop; |
147 |
foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) { |
148 |
my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one |
149 |
my %row = (branchcode => $_, |
150 |
selected => ($thisbranch eq $_ ? 1 : 0), |
151 |
branchname => $branches->{$_}->{'branchname'}, |
152 |
); |
153 |
push @branchloop, \%row; |
154 |
} |
155 |
|
156 |
my $CGIextChoice=CGI::scrolling_list( |
144 |
my $CGIextChoice=CGI::scrolling_list( |
157 |
-name => 'MIME', |
145 |
-name => 'MIME', |
158 |
-id => 'MIME', |
146 |
-id => 'MIME', |
Lines 164-170
if($do_it){
Link Here
|
164 |
CGIextChoice => $CGIextChoice, |
152 |
CGIextChoice => $CGIextChoice, |
165 |
CGIsepChoice => $CGIsepChoice, |
153 |
CGIsepChoice => $CGIsepChoice, |
166 |
booksellers => \@booksellers, |
154 |
booksellers => \@booksellers, |
167 |
branches => \@branchloop); |
155 |
branches => GetBranchesLoop(C4::Context->userenv->{'branch'})); |
168 |
} |
156 |
} |
169 |
|
157 |
|
170 |
output_html_with_http_headers $input, $cookie, $template->output; |
158 |
output_html_with_http_headers $input, $cookie, $template->output; |
171 |
- |
|
|