Revision 4bbf708c
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 123 | 123 |
} |
| 124 | 124 |
|
| 125 | 125 |
# check if it is orphaned |
| 126 |
my $arap = ( $form->{db} eq 'customer' ) ? "ar" : "ap";
|
|
| 126 |
my $arap = ( $form->{db} eq 'customer' ) ? "ar" : "ap";
|
|
| 127 |
my $num_args = 2; |
|
| 128 |
my $makemodel = ''; |
|
| 129 |
if ($form->{db} eq 'vendor') {
|
|
| 130 |
$makemodel = qq| UNION SELECT mm.make FROM makemodel mm WHERE mm.make = ?|; |
|
| 131 |
$num_args++; |
|
| 132 |
} |
|
| 133 |
|
|
| 127 | 134 |
$query = |
| 128 | 135 |
qq|SELECT a.id | . |
| 129 | 136 |
qq|FROM $arap a | . |
| ... | ... | |
| 133 | 140 |
qq|SELECT a.id | . |
| 134 | 141 |
qq|FROM oe a | . |
| 135 | 142 |
qq|JOIN $cv ct ON (a.${cv}_id = ct.id) | .
|
| 136 |
qq|WHERE ct.id = ?|; |
|
| 137 |
my ($dummy) = selectrow_query($form, $dbh, $query, $form->{id}, $form->{id});
|
|
| 143 |
qq|WHERE ct.id = ?| |
|
| 144 |
. $makemodel; |
|
| 145 |
my ($dummy) = selectrow_query($form, $dbh, $query, (conv_i($form->{id})) x $num_args);
|
|
| 146 |
|
|
| 138 | 147 |
$form->{status} = "orphaned" unless ($dummy);
|
| 139 | 148 |
|
| 140 | 149 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Backport von Revision 7581 von XPlace. Hintergrund: Hersteller und Modell sind derzeit Freitextfelder, in der Regel möchte man Lieferanten und die entsprechenden Lieferanten-Art.-Nr. abbilden. Am liebsten noch mit Lieferanten-Art-Preis. Dazu vielleicht nach der 2.6 mehr