Lines 1192-1197
sub ModOrder {
Link Here
|
1192 |
my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;"); |
1192 |
my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;"); |
1193 |
$sth->execute; |
1193 |
$sth->execute; |
1194 |
my $colnames = $sth->{NAME}; |
1194 |
my $colnames = $sth->{NAME}; |
|
|
1195 |
#FIXME Be careful. If aqorders would have columns with diacritics, |
1196 |
#you should need to decode what you get back from NAME. |
1197 |
#See report 10110 and guided_reports.pl |
1195 |
my $query = "UPDATE aqorders SET "; |
1198 |
my $query = "UPDATE aqorders SET "; |
1196 |
|
1199 |
|
1197 |
foreach my $orderinfokey (grep(!/ordernumber/, keys %$orderinfo)){ |
1200 |
foreach my $orderinfokey (grep(!/ordernumber/, keys %$orderinfo)){ |
1198 |
- |
|
|