Revision 78061e54
Von Moritz Bunkus vor etwa 1 Monat hinzugefügt
| SL/SEPA.pm | ||
|---|---|---|
| 165 | 165 |
$h_item_id->execute() || $::form->dberror($q_item_id); |
| 166 | 166 |
my ($item_id) = $h_item_id->fetchrow_array(); |
| 167 | 167 |
|
| 168 |
my $end_to_end_id = strftime "LXO%Y%m%d%H%M%S", localtime;
|
|
| 168 |
my $end_to_end_id = strftime "KIVITENDO%Y%m%d%H%M%S", localtime;
|
|
| 169 | 169 |
my $item_id_len = length "$item_id"; |
| 170 | 170 |
my $num_zeroes = 35 - $item_id_len - length $end_to_end_id; |
| 171 | 171 |
$end_to_end_id .= '0' x $num_zeroes if (0 < $num_zeroes); |
Auch abrufbar als: Unified diff
SEPA: `KIVITENDO` anstelle von `LXO` in end-to-end-ID