Lines 121-126
if ( $op eq 'display' ) {
Link Here
|
121 |
print $query->redirect('/cgi-bin/koha/acqui/acqui-home.pl'); |
121 |
print $query->redirect('/cgi-bin/koha/acqui/acqui-home.pl'); |
122 |
exit; |
122 |
exit; |
123 |
} else { |
123 |
} else { |
|
|
124 |
my $dbh = C4::Context->dbh; |
125 |
# get the list of existing vendors to ensure (client-side with JS) |
126 |
# that we won't create a duplicate |
127 |
my $sth = $dbh->prepare( "SELECT DISTINCT name FROM aqbooksellers"); |
128 |
$sth->execute(); |
129 |
my $name; |
130 |
my $loop_names; |
131 |
while ($name = $sth->fetchrow_array) { # retrieve one row |
132 |
$name =~ s/"/'/g; |
133 |
push @{$loop_names}, $name; |
134 |
} |
135 |
|
124 |
my @currencies = GetCurrencies(); |
136 |
my @currencies = GetCurrencies(); |
125 |
my $loop_currency; |
137 |
my $loop_currency; |
126 |
my $active_currency = GetCurrency(); |
138 |
my $active_currency = GetCurrency(); |
Lines 174-179
if ( $op eq 'display' ) {
Link Here
|
174 |
loop_currency => $loop_currency, |
186 |
loop_currency => $loop_currency, |
175 |
GST => $tax_rate, |
187 |
GST => $tax_rate, |
176 |
enter => 1, |
188 |
enter => 1, |
|
|
189 |
loop_names => $loop_names, |
177 |
default_gst_rate => $default_gst_rate, |
190 |
default_gst_rate => $default_gst_rate, |
178 |
); |
191 |
); |
179 |
} |
192 |
} |