Revision 78061e54
Von Moritz Bunkus vor 7 Monaten 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