Revision 8688e71e
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 37 | 37 |
use List::Util qw(max); |
| 38 | 38 |
|
| 39 | 39 |
use SL::AM; |
| 40 |
use SL::CVar; |
|
| 40 | 41 |
use SL::Common; |
| 41 | 42 |
use SL::DBUtils; |
| 42 | 43 |
use SL::MoreCommon; |
| ... | ... | |
| 463 | 464 |
|
| 464 | 465 |
map { $form->{"dv_$_"} = $ref->{$_} } keys %$ref;
|
| 465 | 466 |
} |
| 467 |
|
|
| 468 |
my $custom_variables = CVar->get_custom_variables('dbh' => $dbh,
|
|
| 469 |
'module' => 'CT', |
|
| 470 |
'trans_id' => $form->{customer_id});
|
|
| 471 |
map { $form->{"vc_cvar_$_->{name}"} = $_->{value} } @{ $custom_variables };
|
|
| 472 |
|
|
| 466 | 473 |
$dbh->disconnect; |
| 467 | 474 |
|
| 468 | 475 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Implementation des Features "Benutzerdefinierte Variablen für Kunden- und Lieferantenstammdaten".