View | Details | Raw Unified | Return to bug 10110
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-1 / +3 lines)
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
- 

Return to bug 10110