diff options
Diffstat (limited to 'LedgerSMB/OE.pm')
| -rwxr-xr-x | LedgerSMB/OE.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index 25bcecd3..3e372e29 100755 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -626,8 +626,7 @@ sub retrieve { $sth->finish; for (qw(printed emailed queued)) { $form->{$_} =~ s/ +$//g } - my %oid = ( 'Pg' => 'oid', - 'PgPP' => 'oid', + my %oid = ( 'Pg' => 'TRUE', 'Oracle' => 'rowid', 'DB2' => '1=1' ); @@ -930,8 +929,8 @@ sub order_details { my $translation; my $partsgroup; - my %oid = ( 'Pg' => 'oid', - 'PgPP' => 'oid', + my %oid = ( 'Pg' => 'TRUE', + 'PgPP' => 'TRUE', 'Oracle' => 'rowid', 'DB2' => '1=1' ); @@ -1608,8 +1607,8 @@ sub adj_onhand { sub adj_inventory { my ($dbh, $myconfig, $form) = @_; - my %oid = ( 'Pg' => 'oid', - 'PgPP' => 'oid', + my %oid = ( 'Pg' => 'TRUE', + 'PgPP' => 'TRUE', 'Oracle' => 'rowid', 'DB2' => '1=1' ); |