|
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 |
} |