X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9ba2705f951f724af2b1c2a9a734b1d81a3b9165..81891b0cefc9f09cf39769f26a4d01a8cb0d0fc3:/SL/OE.pm diff --git a/SL/OE.pm b/SL/OE.pm index 3800e334a..32ba235d9 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -120,7 +120,7 @@ sub transactions { } if ($form->{$ordnumber}) { - $query .= qq| AND $ordnumber ILIKE ?|; + $query .= qq| AND o.$ordnumber ILIKE ?|; push(@values, '%' . $form->{$ordnumber} . '%'); } @@ -187,7 +187,7 @@ sub save { my $all_units = AM->retrieve_units($myconfig, $form); $form->{all_units} = $all_units; - ($null, $form->{employee_id}) = split /--/, $form->{employee}; + $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id}; unless ($form->{employee_id}) { $form->get_employee($dbh); }