Revision 245b0322
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 845 | 845 |
|
| 846 | 846 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 847 | 847 |
|
| 848 |
$query = qq|SELECT COUNT(shipto_id) AS used FROM ( |
|
| 849 |
SELECT shipto_id FROM oe UNION |
|
| 850 |
SELECT shipto_id FROM ar UNION |
|
| 851 |
SELECT shipto_id FROM delivery_orders |
|
| 852 |
) AS stid WHERE shipto_id = ? OR ? = 0|; |
|
| 853 |
($form->{shiptoused}) = selectfirst_array_query($form, $dbh, $query, ($form->{shipto_id})x2);
|
|
| 854 |
|
|
| 848 | 855 |
$sth->finish; |
| 849 | 856 |
$dbh->disconnect; |
| 850 | 857 |
|
Auch abrufbar als: Unified diff
Testanwendung der CGI::Ajax Modifikation:
Lieferadressen haben jetzt einen (noch nutzlosen) Loeschenbutton, der ausgeblendet wird, wenn die Lieferadressen nicht 'echt' sind, oder wenn sie bereits vorhanen sind.