Revision 5101d6e1
Von Kivitendo Admin vor fast 9 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 143 | 143 |
} |
| 144 | 144 |
} |
| 145 | 145 |
|
| 146 |
$form->{link} = "";
|
|
| 147 |
foreach my $item ($form->{AR}, $form->{AR_amount},
|
|
| 148 |
$form->{AR_tax}, $form->{AR_paid},
|
|
| 149 |
$form->{AP}, $form->{AP_amount},
|
|
| 150 |
$form->{AP_tax}, $form->{AP_paid},
|
|
| 151 |
$form->{IC}, $form->{IC_sale},
|
|
| 152 |
$form->{IC_cogs}, $form->{IC_taxpart},
|
|
| 153 |
$form->{IC_income}, $form->{IC_expense},
|
|
| 154 |
$form->{IC_taxservice}
|
|
| 155 |
) {
|
|
| 156 |
$form->{link} .= "${item}:" if ($item);
|
|
| 157 |
} |
|
| 158 |
chop $form->{link};
|
|
| 146 |
my @link_order = qw(AR AR_amount AR_tax AR_paid AP AP_amount AP_tax AP_paid IC IC_sale IC_cogs IC_taxpart IC_income IC_expense IC_taxservice); |
|
| 147 |
$form->{link} = join ':', grep $_, map $form->{$_}, @link_order;
|
|
| 159 | 148 |
|
| 160 | 149 |
# strip blanks from accno |
| 161 | 150 |
map { $form->{$_} =~ s/ //g; } qw(accno);
|
Auch abrufbar als: Unified diff
Konten speichern - Refaktoring von ->{link}